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ABSTRACT 


This  research  extended  the  previous  work  performed 
by  Becker  on  the  elevated  temperature  deformation  charac¬ 
teristics  of  an  aluminum- 10 . 2%  magnesium-0 . 52%  manganese 
alloy.  The  alloy  was  warm  rolled  at  300  C  to  94 %  reduction. 
Stress-strain  testing  was  utilized  to  collect  data  for 
stress  vs  strain  rate  and  ductility  vs  strain  rate,  as 
well  as,  stress  exponents  and  activation  energies. 

Tensile  testing  was  performed  at  strain  rates  from 
1.39X10  4s  4  to  1.39X10  4s  4  and  temperatures  from  20  C  to 
425  C.  Ductility  ranged  from  400%  at  300  C  and  600%  at 
325  C  to  700 %  at  425  C.  The  data  clearly  establishes  that 
the  warm  rolled  alloy  is  superplastic  at  temperatures  as 

low  as  275  C  and  may  exhibit  superplastic  elongations 

-2  -1 

(greater  than  400%)  at  strain  rates  as  high  as  10  s  at 
325  C.  Scanning  electron  microscope  observations  indicated 
little  or  no  void  formation  at  or  below  300  C.  The  high 
ductilities  observed  at  temperatures  above  the  solvus  are 
the  result  of  grain  boundary  sliding. 
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INTRODUCTION 


I  . 


The  purpose  of  this  thesis  was  to  investigate  r  h»- 
e leva  ted  temperature  deformation  characteristics  <.>  t  a 
t  hormo-meohun  ica  1 1  y  processed  A] -10 . 2"Mg-0 . 52  "Sin  alloy  in 
the  as-rolled  condition.  Previous  research  by  Ness  [Ref. 
1],  Bin  gay  [Ref.  2],  Glover  [Ref.  3],  Grandon  [Ref.  1], 
Speed  [Ref.  5],  Chest erman  [Ref.  6],  Johnson  [Ref.  7], 
and  Shirah  [Ref.  8],  clearly  demonstrated  that  thermo- 
mechanically  processed  aluminum-magnesium  alloys  exhibit 
high  strength  with  good  ductility  at  ambient  temperature. 
Transmission  electron  microscopy  studies  by  McNel ley  and 
Garg  [Ref.  9]  confirmed  that  the  microstructure  of  this 
a.loy  consisted  of  fine,  cellular  dislocation  structures 
or  subgrain  structures.  It  was  further  observed  that 
annealing  after  rolling  resulted  in  recovery  with  possible 
recrystal  1 xzat ion  to  fine  grains  of  submicron  size.  This 
prompted  study  of  the  elevated  temperature  behavior  of 
these  alloys  with  a  view  toward  their  possible  superplastic 
behav i or . 

Although  his  findings  were  preliminary,  Becker  [Ref. 

10]  observed  superplasticity  in  both  the  8"  and  10" 
aluminum-magnesium  alloys.  These  alloys  were  Ihortno- 
mechanically  processed  by  warm  rolling.  Testing  was  con¬ 


duct  ed  on  mater iaL  in  the  as-rolled  condition,  after 


;mnt -a  1  i  ng  tor  various  t  ii’.u-s  at  300  C,  and  in  a  ivcrysiul- 
1  i/i-ij  i'oikIm  ion  ulitauiH'd  by  heating  ior  one  ha!;'  hour  a; 

110  C. 

Tho  proo-ssiny;  technique  developed  by  Johnson  [Ref.  7j 
and  the  tensile  testing  procedure  developed  by  Becker 
[Ref.  10  j  were  used  in  the  study  of  this  10 . 2  °i.\lg-0 . 52  ;’i.Mn 
aluminum  alloy.  Tensile  testing  was  conducted  using  an 
e 1 ec t o-merhan i ea 1  Inst  ron  machine  with  a  Marshall  three 
Zone  clamshell  furnace  for  temperature  control.  The 
microstructure  of  the  elongated  test  samples  was  examined 
using  optical  microscopy. 

This  thesis  presents  data  obtained  from  the  mechanical 
testing  of  an  as-rolled  magnesium-aluminum  alloy  as  well,  as 
results  of  microst ructural  examination  to  assist  in 
evaluation  of  mechanical  test  results. 


1 1 .  BACKGROUND 


A.  ALUMINUM- MAGNESIUM  ALLOYS 

Aluminum  alloys  have  been  extensively  studied  because 
of  their  low  density,  ductility,  and  toughness.  The  higher 
strength  alloys  derive  their  strength  mainly  through 
precipitation  and  solid  solution  hardening.  The  formation 
of  a  second  phase  retards  dislocation  motion  and  grain 
growt h . 

Aluminum-magnesium  alloys  are  characterized  by  a  good 
strength  to  weight  ratio,  superior  ductility,  lower  density 
with  better  corrosion  resistance  than  other,  higher  strength 
aluminum  alloys,  and  also  good  high  cycle  fatigue  behavior. 
The  strength  can  be  improved  through  cold  working. 

B.  PREVIOUS  WORK 

Ness  [Ref.  1]  initiated  the  investigation  of  high 
magnesium  alloys  at  this  laboratory.  He  studied  an  18% 
aluminum-magnesium  alloy,  attempting  to  parallel  the  concepts 
developed  by  Bly,  Sherby,  and  Young  [Ref.  11]  in  their  work 
on  high  carbon  steel.  Through  mechanical  working  of  an  Fe-C 
material  in  the  two  phase  ferrite-carbide  region  they 
obtained  microstructural  refinement  and  improved  mechanical 
properties,  as  did  Ness  [Ref.  1]  with  a  resulting  compression 


.strength  of  653  Mpa  (99  KSI)  in  this  very  high  magnesium 
a  1  1  o  y  . 

Bingay  [Ref.  2]  and  Glover  [Ref.  3]  attempted  varia¬ 
tions  in  thermo-mechanical  processing  of  aluminum  alloys 
to  eliminate  cracking  during  the  rolling  process.  To 
refine  the  microstructure,  Bingay  [Ref.  2]  performed  both 
isothermal  and  non- isothermal  forging  prior  to  rolling  in 
15-19%  magnesium  containing  alloys.  Processing  was  difficult 
and  subsequent  work  shifted  to  examine  lower  magnesium 
alloys.  Aluminum  alloys  containing  7-9 %  magnesium  were 
investigated  by  Glover  [Ref.  3]  who  observed  the  characteris¬ 
tics  of  superplastic  behavior. 

Extending  the  study  into  7-10%  magnesium  alloys,  Grandon 
[Ref.  4]  introduced  a  24  hour  solution  treatment  followed 
by  a  quench  and  then  warm  rolling  at  300  C.  His  results' 
indicated  a  doubling  of  strength  while  maintaining  good 
ductility  when  compared  to  the  5xxx  series.  He  also 
noted  that  recrystallization  did  not  occur  during  warm 
rolling  below  the  solvus.  Alloys  with  greater  magnesium 
content  were  tested  by  Speed  [Ref.  5]. 

Chesterman  [Ref.  6]  studied  the  nature  of  precipitat ion 
and  recrystallization  in  these  alloys  through  optical 
microscopy.  For  8-14%  alloys,  he  reported  that  recrystal¬ 
lization  only  occurred  at  temperatures  above  the  solvus  and 
was  apparently  not  induced  even  after  extensive  cold  working 
followed  by  annealing  as  long  as  the  annealing  temperature 


was  below  the  solvus.  At  annealing  temperatures  ol'  .6Tm, 
p ree i p i t at  ion  still  replaced  recrystallization  as  the 
method  of  stored  energy  release. 

Johnson  [Ref.  7J  standardized  the  thermo-mecham cal 
processing  of  the  aluminum-magnesium  alloys.  He  investi¬ 
gated  8-10"  alloys  and  reported  material  strength  of 
twice  that  of  the  5xxx  alloys  with  good  ductility.  His 
process  was  to  solution  treat  the  material  at  440  C  for  9 
hours,  isothermal ly  upset  forge  the  material,  anneal  for  1 
hour  at  440  C,  quench,  and  then  warm  roll.  Various  warm 
rolling  temperatures  were  used  ranging  from  200  C  to  340  C. 
He  concluded  that  the  beta  phase  contributed  by  dispersion 
strengthening  to  the  high  strength  and  good  ductility. 

Shirah  [Ref.  8]  improved  the  microstructural  homogeneity 
by  increasing  the  solution  treatment  time  to  24  'hours.  This 
extended  treatment  minimized  precipitate  banding  while  not 
effecting  grain  growth. 

Becker  [Ref.  10]  combined  the  previous  studies  and 
developed  the  procedure  for  tensile  testing  isothermally  at 
various  temperatures  up  to  300  C.  His  work  concentrated  on 
8.14%  Mg  and  10.2%  Mg  aluminum-magnesium  alloys.  He 
observed  superplastic  elongations  of  up  to  400%  and 
concluded  that  the  higher  magnesium  content  in  the  10.2% 
alloy  stabilized  grain  size  and  extended  the  range  of 
superpl ast Lc  behavior  to  higher  temperatures. 


C.  SUPERPLASTIC  BEHAVIOR 


Super p I  as t  ic  i  t y  is  the  capability  of  a  material  to 
deform  to  exceptionally  high  elongations.  Elongation 
greater  than  200%  is  often  taken  as  superplastic  [Ref.  11]; 
values  of  greater  than  1000%  have  frequently  been  reported. 
The  most  important  prerequisites  for  superplasticity  are 
generally  agreed  to  be  fine,  equiaxed  grains  with  high 
angle  grain  boundaries,  temperature  in  the  range  of 
0.5-0.7Tm,  low  strain  rates,  and  a  high  strain  rate  sensi¬ 
tivity  coefficient  (m). 

To  achieve  superplasticity,  a  fine  grain  size  of  less 
than  10  microns  is  normally  required.  A  second  phase  at 
the  matrix  grain  boundaries  is  usually  necessary  to  retard 
grain  growth  under  warm  temperature  conditions.  This  second 
phase  should  be  similar  in  strength  to  the  matrix  to 
minimize  the  formation  of  cavities  [Ref.  11].  The  fine 
grains  should  also  be  equiaxed  with  smooth,  rounded  grain 
boundaries  to  promote  sliding.  Grain  growth  suppresses 
superplasticity  as  larger  grains  impose  larger  diffusion 
distances  and  reduce  the  strain  resulting  from  boundary 
sliding. 

Deformation  at  elevated  temperature  is  a  thermally 
activated  process,  and  superplasticity  is  observed  only  at 
elevated  temperatures.  The  flow  stress  is  a  function  of 
strain,  strain  rate,  and  temperature.  At  constant  strain 


and  temperature,  stress  is  often  assumed  to  depend  upon 
strain  rate  according  to 

:  =  K  * m  ( eqn  2.1) 

where  '  is  the  stress,  is  the  strain  rate,  K  is  a 
temperature  dependent  constant,  and  m  is  the  strain  rate 
sensitivity  coefficient. 

In  general,  m  increases  with  increasing  temperature. 
Superplastic  behavior  in  metals  usually  occurs  at  high  m 
values  of  .3  to  .5  and  is  the  greatest  at  the  maximum  m. 

The  value  of  m  can  be  found  by  plotting  log  stress  vs 
log  strain  rate  for  data  obtained  at  constant  strain  and 
temperature . 

The  activation  energy  (Q)  is  a  measure  of  the  energy 
required  for  temperature-dependent  processes.  For  a 
thermally  activated  deformation  process 

•'  =  f  (  :  )exp(-Q/RT)  (eqn  2.2) 

where  R  is  a  gas  constant  and  T  is  temperature. 

Values  for  the  activation  energy  can  be  obtained  by 
plotting  log  strain  rate  vs  inverse  temperature  for  data  at 
constant  stress.  Such  plots  often  indicate  that  the 
activation  energy  may  be  constant  for  a  range  of  stress 
but.  may  change  to  a  different  value-  for  a  different  range  of 
stress.  Values  of  act  ival  ion  energy  for  deformation  often 
are  tin-  same  as  those  for  lattice  diffusion,  suggesting 

lb 


lattice  diffusion  control  of  deformation.  When  grain 
boundary  sliding  controls  the  deformation,  lower  values  <> 
activation  energy  may  be  observed;  diffusion  in  the  grain 
boundaries,  the  rate  controlling  process,  occurs  more 
readily  than  diffusion  in  the  grain  interior  and  is 
characterized  by  the  lower  activation  energy.  Hence 
activation  energy  measurement  may  provide  useful  insight 
into  the  mechanism  involved  in  the  material. 


III.  EXPERIMENTAL  PROCEDURE 


A.  MATERIAL  PROCESSING 

The  aluminum  alloy  investigated  was  nominally  10.2 
weight  ”  Mg  and  0.52  weight  %  Mn .  The  direct  chill  cast 
ingot  received  was  produced  by  ALCOA  Technical  Center  using 
99.991  pure  aluminum  base  metal  alloyed  with  commercially 
pure  magnesium,  51  beryllium-aluminum  master  alloy  [Ref.  7]. 
The  ingot  measured  127  mm  (5  in)  in  diameter  and  1016  mm 
(40  in)  in  length.  The  complete  composition  is  listed  below 
in  Table  I  [ Ref .  7 ] . 


Table  I 

Alloy  Composition  (Weight  Percent) 

Serial  Number  Si  Fe  Mn  Mg  Ti  Be 

501300A  0.01  0.03  0.52  10.2  0.01  0.0002 

A  portion  of  the  ingot  was  sectioned  into  billets  101.6 
mm  (4  in)  long  with  a  square  cross  section  of  width  31.75  mm 
(1.25  in).  Following  the  procedures  developed  by  Johnson 
[Ref.  7]  and  Becker  [Ref.  10]  the  billets  were  solution 
treated  at  440C  for  24  hours,  upset  forged  at  440C  on  heated 
platens  to  approximately  28  mm  (1.1  in)  in  height,  annealed 
at  440C  for  1  hour,  then  oil  quenched.  The  billets  were 


forged  along  their  greatest  dimension,  resulting  in  a 
reduction  of  approximately  73',  or  a  strain  of  about  1.3. 

B.  WARM  ROLLING 

The  rolling  of  the  billets  into  sheets  was  comparable 
to  that  done  by  Becker  [Ref.  10]  and  performed  in  the  same 
manner  as  Johnson  [Ref.  7],  with  some  modifications  made  to 
the  technique.  To  preclude  cracking  of  the  forged  billets 
by  suspected  uneven  heating,  each  billet  was  placed  on  a 
steel  plate  used  as  a  heat  source  in  the  rolling  furnace. 
Since  isothermal  heating  was  essential  each  sample  was 
initially  heated  from  room  temperature  to  300C  for 
approximately  10  minutes  (after  the  sample  surface 
temperature  reached  3000  before  attempting  the  first 
rolling  pass.  The  samples  were  then  heated  for  6  minutes 
between  passes  for  the  first  three  passes  and  1  to  3  minutes 
between  passes  thereafter,  leaving  the  sample  in  the  furnace 
just  long  enough  to  ensure  an  isothermal  condition.  The 
temperatures  of  both  the  sample  and  the  plate  were  monitored 
using  thermocouples.  In  the  later  rolling  passes,  the 
deformed  sheet  was  pulled  through  the  rollers  to  minimize 
warping.  Each  billet  was  rolled  into  a  sheet  about  1.8  mm 
(0.07  in)  thick,  102  mm  (  1  in)  wide,  and  702  mm  (10  in)  long 
resulting  in  a  final  sample  reduction  of  approximately  94L. 

As  described  in  Becker  [Ref.  10],  the  rolled  sheets  were 
cut  into  blanks  63  mm  (2.17  in)  long  and  13  mm  (0.5  in) 
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wide.  Depending  upon  sheet  thickness  each  sheet  yielded 
130  to  110  blanks.  The  blanks  were  endmilled  in  lots  of 
five  to  a  gage  width  of  approximately  3  mm  (0.12  in)  and 
length  of  15  mm  (0.0  in).  A  fabricated  jig  was  used  as 
a  milling  guide  in  determining  the  gage  dimensions.  A 
sketch  of  the  test  specimen  is  shown  in  Figure  3.1. 

C.  SPECIMEN  TESTING 

The  tensile  testing  procedure  was  similar  to  that 
described  by  Becker  [Ref.  10].  Each  test  specimen  was 
placed  into  wedge  grips  and  held  in  place  by  pins  passing 
through  the  wedges.  The  wedge-action  grips,  grip  assemblies 
and  pull  rods  were  supplied  by  ATS,  King  of  Prussia,  PA,  and 
were  fabricated  from  Inconel  718.  The  assembly  was  then 
mounted  into  pull  rods  connected  to  an  electro-mechanical 
Instron  machine. 

To  maintain  a  constant  specimen  temperature  during 
testing,  a  Marshall  clamshell  furnace  containing  three, 
vertically  oriented  heating  elements  was  utilized.  The 
heating  elements  were  individually  regulated  by  three 
controllers  using  thermocouples  located  adjacent  to  each 
element.  The  furnace  was  insulated  by  positioning 
insulation  paper  between  both  halves  of  the  clamshell  and 
placing  crescent-shaped  insulation  inside  the  top  and 
bottom  of  the  furnace.  Rings  of  insulation  were  wrapped 
around  <‘arh  pull  rod  just  outside  the  furnace,  with  a  final 


insulation  pad  wrapped  around  t  ho  rings.  The-  bottom 
insulation  was  wired  to  the  furnace  to  keep  it  in  place- 
dur i n  g  t  es  t  i  ng . 

Five  thermocouples  were  placed  inside  the  furnace  to 
monitor  the  specimen  temperature.  A  thermocouple  was 
attached  to  each  pull  rod  approximately  four  inches  above 
and  tie  low  the  specimen  and  two  additional  thermocouples 
were  touching  the  top  and  bottom  of  the  specimen,  respec¬ 
tively.  A  center  thermocouple  was  initially  placed 
touching  the  middle  of  the  specimen  but  this  tended  to 
bend  the  sample  and  result  in  premature  fracture.  The 
thermocouple  was  subsequently  positioned  beside  the  specimen 
at  the  start  of  each  test. 

The  tensilt  testing  was  performed  with  crosshead  speeds 
ranging  from  0.127  mm  per  minute  to  127.0  mm  per  minute 
(0.005  in/min  to  5.0  in /min)  at  temperatures  from  20C  to 
425C.  Care  was  taken  to  ensure  each  specimen  was  pulled 
isothermally .  The  testing  apparatus  was  heated  for  a  full 
day  prior  to  conducting  a  sequence  of  experiments  at  a 
constant  temperature.  A  test  specimen  was  then  mounted  into 
the  pull  rods  and  the  furnace  closed.  The  five  thermocouple 
indicated  temperature  equalization  in  approximately  1  hour 
and  the  test  was  started.  At  very  low  strain  rates  the 
bottom  pull  rod  temperature  would  slowly  start  to  drop  as 
t  hi*  bottom  rod  came  out  of  the  furnace.  The  top  four 
temperatures  normal  1 y  remained  identical  ,  with  the  bottom 
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D.  DATA  REDUCTION 

The*  Inst  ran  strip  chart  recorder  registered  applied 
force  as  a  function  of  chart  motion.  The  magnification 
ratio  between  chart  speed  and  crosshead  speed  varied  but 
was  usually  set  at  10.  From  the  raw  data,  engineering 
stress  and  strain  were  computed  and  loaded  into  computer 
data  files  for  plotting  and  further  calculations.  To  remove 
such  variables  as  grip  tightening,  Instron  machine  error, 
and  elastic  strain,  a  "floating  slope”  calculation  was  made 
at  each  selected  data  point  using  a  computer  subroutine. 
Sample  elongation  was  found  by  measuring  the  fractured 
specimen . 

E.  COMPUTER  PROGRAMS 

All  plotting  and  true  stress-true  strain  calculations 
were  accomplished  using  FORTRAN  computer  programs  in 
conjunction  with  the  library  routine  DISSPLA.  Essentially, 
the  appropriate  input  data  files  were  read  into  each  program 
and  loaded  into  arrays.  These  arrays  were  then  operated  on 
to  achieve'  the  desired  variables,  loaded  into  DISSPLA,  and 
plotted  against  each  other.  Also,  various  DISSPLA  curve 
fitting  routines  were  used  on  some  of  the  plots  to  obtain 
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So 1  ect  ed  spec  imens  were  cold  mounted  on  a  base  of  g!  ass 
usint;  st cm.*  1  blanks  or  brass  rings  as  a  mold,  depending  upon 
the  size  of  the  sample.  The  mounted  samples  were  then 
ground  using  210  to  600  grit  paper  and  polished  with  a 
magnesium  oxide  abrasive  system.  A  Gra  f -Sargent  solution 
was  list'd  i  o  etch  each  specimen.  The  technique  used  was  to 
swab  each  sample  for  10  seconds.  Using  a  Zeiss  Universal 
Microscope,  optical  micrographs  were  taken  with  Panatomic  X 
35  mm  film. 


IV. 


RESULTS  AND  DISCUSSION 


A.  MECHANICAL  TESTING  RESULTS 

To  study  the  deformation  characteristics  of  this  alloy, 
tensile  testing  was  conducted  over  a  wide  range  of  tempera¬ 
tures  and  strain  rates  using  the  procedures  described 

in  Chapter  III.  Temperatures  varied  from  20  C  to  425  C  and 
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strain  rates  from  1.4X10  to  1.4X10  s  as  illustrated  in 
Table  1 1 . 

True  stress  and  true  plastic  strain  were  computed  as 
described  in  Chapter  III  and  plotted  for  each  test  tempera¬ 
ture.  One  example  is  shown  in  Figure  4.1  for  testing  at 
300  C,  and  the  remainder  of  the  data  obtained  is  given  in 
Appendix  A.  The  curves  drawn  reflect  data  points  taken 
prior  to  the  onset  of  necking;  this  procedure  was  necessary 
as  the  assumption  of  uniform  straining  of  the  gage  section 
does  not  apply  once  necking  has  begun.  As  often  noted  in 
studies  of  superplastic  materials,  the  test  samples  exhibit 
prolonged  necking  during  deformation.  Particular  attention 
was  directed  to  the  temperature  interval  from  200  C  to  325  C 
since  Becker's  [Ref.  10]  data  indicated  superplastic  behavior 
in  this  region. 

In  this  temperature  range,  the  stress-strain  plots  for 
all  temperatures  indicate  that  at  high  strain  rates  a  strain 
softening  occurs  as  stress  decreases  significantly  with 
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Table  II 

Data  for  Al-10 .2%Mg-0 . 52%Mn  Alloy  in  the  As-Rolled  Condition 
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increasing  strain.  Such  an  apparent  softening  could  result 
from  localized  deformation  of  the  samples.  The  softening, 
however,  generally  appears  at  high  strain  rates.  Jonas 
[Ref.  I'd]  reported  similar  data  and  suggested  that  this  was 
due  to  a  break  up  of  a  fibered  structure  resulting  from 
rolling.  A  detailed  explanation  as  to  why  this  should 
result  was  not  offered  although  it  may  be  inferred  that  the 
more  equiaxed  structure  had  a  smaller  apparent  grain  size. 

At  intermediate  strain  rates  the  stress  remains  relatively 
constant  over  a  wide  strain  range,  and  at  low  strain  rates 
the  stress  increases  slightly  from  strain  hardening,  perhaps 
due  to  grain  growth. 

This  latter  behavior  can  be  understood  from  models  such 
as  those  due  to  Nabarro  [Ref.  14]  and  Herring  [Ref.  15],  or 

x 

Coble  [Ref.  16],  all  of  which  predict  1/d"  grain  size 
dependence  for  the  deformation  rate,  where  d  =  grain  size 
and  x  =  2  ( Nabar ro-Her r ing )  or  3  (Coble).  As  grain  growth 
occurs,  the  stress  must  increase  to  maintain  a  constant 
strain  rate.  To  obtain  representations  for  the  temperature 
and  strain  rate  dependence  of  plastic  deformation,  values 
of  true  stress  at  a  true  plastic  strain  of  0.1  were  plotted 
against  temperature  (for  each  strain  rate)  and  strain  rate 
("for  each  temperature). 

Figure  1.2  illustrates  the  dependence  of  the  flow- 
stress  at  0.1  strain  on  temperature  for  each  strain  rate 
examined.  Generally,  as  the  strain  rate  increases  the 
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stress  increases  and  as  temperature  increases  the  stre.- 


dec reuses .  The  trend  of  the  curves  suggests  a  weakening  o 
the  temperature  dependence  of  the  flow  stress  for 
temperatures  above  the  rolling  temperature,  300  C. 

Sherby  ei .  al .  [Ref.  17]  have  noted  that  one  common 
characteristic  ol  superplastic  metallic  alloys  was  that 
their  resistance  to  plastic  flow  is  highly  strain  rai 
sensitive.  Figures  4.3  and  4.4  are  plots  of  log  stress 
at  0.1  plastic  strain  vs  log  strain  rate  for  selected 
temperatures.  The  data  of  Figures  4.3  and  4.4  are 
generally  not  linear  for  each  temperature.  Rather,  the 
slope  m  generally  increases  with  decreasing  strain  rate, 
although  at  temperatures  from  275  C  to  325  C  the  curves 
appear  sigmoidal  as  discussed  by  Mukherjee  [Ref.  18].  41s 

the  slopes  appear  to  increase  with  increasing  temperature 
for  any  strain  rate.  The  data  in  Figure  4.4  was  plotted 
separately  to  avoid  overlap;  as  noted  previously,  the  flow- 
stress  dependence  upon  temperature  is  weak  in  this  range. 

Based  on  the  stress-tempera ' are  data  of  Figure  1.2, 
activation  energies  can  be  determined  by  plotting  strain 
rate  vs.  1/T  at  constant  values  of  stress  (Figure  4.5). 
These  activation  energy  values  were  obtained  from  the  data 
of  Figure  1.5  bv  applying  the  relation 
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Figure  4  .  j  Tine  Stress  at  0.1  Strain  vs  Strain  Kate  Data  for  A 1  - 10 . 2/TIg~0 .  S 1  Mn  .  Solution 
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5  VS  STRAIN  RATE 


3 -1 
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for  each  of  th<*  stresses  indicated ;  that  is,  the  slopes  of 
the  individual  lines  on  Figure  1.5  were  used  to  obtain  the 
values  shown. 

The  activation  energy  at  higher  stresses  and  lower 
temperatures  is  about  36  Kcal/mol.  This  value  is  consistent 
with  lattice  diffusion  control  of  deformation,  either  via 
control  of  dislocation  climb  or  dislocation  glide  [Ref.  20]. 
A  change  in  slope  appears  to  occur  near  300  C;  above  this 
temperature  (at  smaller  values  of  1/T)  the  activation  energy 
appears  to  decrease  to  a  value  of  about  16  Kcal/mol.  The 
rate  and  the  temperatures  at  which  this  value  becomes 
dominant  correspond  to  the  regime  wherein  the  apparent 
temperature  dependence  of  the  stress  diminishes  (Figure  4.2) 
The  rates  and  temperatures  also  correspond  to  those  wherein 
superplastic  ductilities  begin  to  be  observed. 

Micrographs  in  Figures  4.6  and  4.7  are  of  samples  tested 
at  200  C  and  300  C,  respectively.  No  cavitation  appears 
at  200  C  although  some  cavitation  is  observed  at  300  C. 

These  observations  are  consistant  with  the  noted  break 
in  slope  in  Figure  4.5  at  about  300  C  indicating  the  onset 
of  possible  grain  boundary  sliding. 

At  temperatures  above  the  solvus  (367  C)  the  magnesium 
fends  to  go  back  into  solution,  with  the  result  that  the 
i ntermetal 1 i c  is  no  longer  present  to  retard  coarsening  of 
the  subgrain  structure  or  to  inhibit  recrystallization.  The 
recrystallization  coupled  with  the  solid  solution 


9 


AI-10Mg-0.52Mn 


Figure  4.6  Optical  Micrograph  of  Al-10 .2°«Mg-0 .52  LMn 
160x,  Tested  at  200  C,  Strain  Rate  5 .6X10" !s_1 ;  Sec¬ 
tioned  Longitudinally.  Etched  Using  Graf-Sargent 
Sol ut ion  . 
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st  l'l'iii;!  jii'n  ing  ’.v  i  t  h  i  n  the  1  at  t  ice  may  promote  grain  bounda  r 
si  i  d  i  n  g  as  t  In-  dominant  do  forma  t  ion  mechanism.  A  charac- 
l  e  fistic  of  r  e  c  r  y  s  t  a  1  1  i  z.  <  *  d  a  1  uni  i  n  uni  a  1  1  <  >  ys  u  n  ..1  e  rpiint; 
suporpl ast ie  do  format  ion  via  grain  boundary  sliding  is 
extensive  cavitation.  The  micrograph  in  Figure  1.8  shows 
extensive  cavitation  in  the  test  specimen  pulled  at  100  C . 

Ductility  was  plotted  versus  temperature  in  Figure  1.9 
for  t  he  warm  rolled  Al-10 . 2 5Mg-0 . 52 7Mn  alloy  of  this 
research.  Included  is  data  from  Becker  [Ref.  10]  and 
Stengel  [Ref.  19]  on  this  alloy,  warm  rolled  and  then 
recrystallized  by  annealing  at  -140  C  prior  to  tension 
testing.  The  data  on  the  material  roc  rest al 1 ized  repre¬ 
sents  a  pattern  expected  for  these  aluminum  alloys.  The 
as-rolled  data,  however,  rises  significantly  in  ductility 
between  150  C  and  300  C.  Sample  elongations  of  greater 
than  100"  were  observed  at  temperatures  as  low  as  275  C. 
This  indicates  that  warm  rolling  enhances  ductility  to 
values  greater  than  expected.  Theories  of  elevated 
temperature  deformation  do  not  consider  subgrain  structure 
as  likely  to  exhibit  superplastic  behavior.  Rather,  fine 
grain  size*  is  thought  to  be  required .  It  is  not  clear, 
her*- ,  why  such  structures  exhibit  such  enhanced  ductility, 
but  the  ductility  itself  is  clearly  the  result  of  the 
warm  rolling.  The  increasing  m  value  with  increasing 
temperature  also  would  result  from  the  warm  rolling.  The 
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remaining  plots  and  data  are  included  in  Appendix  A  and 
Table  II. 

Figure  1.10  is  a  plot  of  ductility  vs  strain  rate  for  a 
constant  temperature  of  300  C.  The  curve  describes  an 
expected  shape  ,  based  on  the  s t  ress-st  ra in  rate  data.  It 

should  be  noted  that  peak  ductility  of  392%  occurs  at  a 

-3  -1 

strain  rate  of  5.6X10  s  ,  a  relatively  high  strain  rate. 
More  of  these  plots  at  selected  temperatures  are  included 
in  Appendix  A. 

B.  METALLOGRAPHY 

A  comparison  between  microstructures  after  testing  at 

-2  -4  -1 

strain  rates  of  5.6X10  and  5.6X10  s  can  be  seen  in 
Figure  4.11.  There  is  a  marked  difference  in  grain  struc¬ 
tures  as  a  function  of  strain  rate.  At  high  rate  where 
ductility  is  lower  and  time  at  temperature  is  short, 
little  cavitation  is  seen  and  little  evidence  for  resolu- 
tioning  of  the  second  phase  or  recrystallization.  On  the 
other  hand,  at  a  lower  rate  with  more  time  at  temperature, 
the  reso 1 ut ion ing  of  the  second  phase  and  recrystallization 
lead  to  more  ready  boundary  sliding  and  the  accompanying 
cav i tat  ion. 

In  nummary,  the  activation  energy  for  deformation  follows 
a  pattern  suggesting  lattice  diffusion  giving  way  to  grain 
boundary  diffusion  control  as  temperature  increases  above 
300  C',  the  rolling  temperature.  The  m  values  attained 
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DUCTILITY  VS  STRAIN  RATE 


Figure  -t.lo  Dmtiliiy  vs  Strain  Kale  Oata  tor  Testing  Oonducled  at  '}()()  C  tor  Al-10.i'7.Mg-0.l)i.' '"Mu 
Solution  treated  at  440  l '  lot  d4  liaurs.  Annealed  al  440  0  lor  1  Hour,  oil  Oueuehed,  and  Warm 
Rolled  .it  100  l  to  44  /  Kidintion. 
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Figure  1.11  Optical  Micrographs  of  Al-10 . 2?L\Ig-0 . 52'V,Mn 
500X ,  Tested  at  400  C,  Sectioned  Longitudinally,  to 
Compare  Grain  Size  and  Extent .of. Cavi t at  ion .  Strain 
Rates  Were  5X10~“s-^ and  5X10  s  ,  Respectively. 
Etched  Using  Graf-Sargent  Solution. 


V. 


CONCLUSIONS  AND  RECOMMENDATIONS 


The  conclusions  drawn  from  this  rc-sear  -h  are:  1)  warm 

rolled  Al- 10 . 2"Mg-0 . 52*Mn  alloy  is  superplastie  at 

temperatures  as  low  as  275C;  2)  the  warm  rolled  alloy 

exhibits  elongat  ions  of  400“i  at  300  C  rnd  strain  rates  of 
-3  - 1 

5X10  s  ;  3)  the  warm  rolling  is  responsible  tor  the  supe 
plastic  response  at  lower  temperatures  (near  300  C); 

4)  grain  boundary  sliding  appears  to  be  r he  predominant 
superplastic  deformation  mechanism  at  higher  temperatures 
(above  300  C),  based  upon  activation  energy  data; 

5)  microstructural  data  indicates  that  the  structure  prior 
to  testing  consists  principally  of  fine  subgrains  rather 
than  grains. 

Recommendations  for  further  work  are:  1)  microstruc¬ 
tural  analysis  be  conducted  to  reconcile  the  observations 
of  activation  energies  appropriate  for  boundary  sliding 
with  the  observations  of  dislocation  substructures  being 
present;  2)  investigation  into  alloying  effects  on  micro¬ 
structure  and  superplasticity;  3)  examination  and  further 
analysis  of  microstructural  effects  of  annealing  and 
recrystallization  in  this  alloy. 
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Figure  A  7  True  Stress  vs  True  (Mastic  Strain  Data  fur  Testing  Conducted  at  275  C  for 
A1 - 1 0 . 2XMg-0 . 52 7 Mn .  Solution  Treated  at  440  C  for  24  Hours,  Annealed  at  440  C  for  1  Hour 
Oil  tjueuelied,  and  Warm  Rolled  at  500  C  to  94  "L  Reduction. 
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Figure  A. 8  True  Stress  vs  True  Plastic  Strain  Data  tor  Testing  Conducted  ai  125  C  ior 
Al - 10 . 2 / Mg-0 . 52  Mn  .  Solution  Treated  at  440  C  tor  24  Hours,  Annealed  at  440  C  for  1  Hour 
Oil  i )  ueiic  lied ,  and  Warm  Polled  at  TOO  C  to  94%  Keduelion. 
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TEMPERATURE  °C 
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DUCTILITY  VS  STRAIN  RATE 


Figure  A. 15  Ductility  vs  strain  Kate  Data  for  Testing  Conducted  at  200  C  for  A1 -10 . 2/Mg-0. 
Solution  Treated  at  440  C  for  24  Hours,  Annealed  at  440  C  for  1  Hour,  Oil  Ouenclied,  and 
Warm  Rolled  at  100  C  to  04 "L  Reduction. 
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Figure  A. 17  Ductility  vs  Strain  Kite  Data  for  Testing  Conducted  at  21b  C  for  A 
SolnLion  Treated  at  440  C  for  74  Hours,  Annealed  at  440  C  for  1  Hour,  oil  tjiwm: 
Warm  Rolled  at  100  C  to  lJ4'/.'  Reduction. 
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TR'JE  STP^SS  ’RLE  $  *  R  '  I  N  ■**■•)->.- 

th:e  ^rcgra,1*  'cvpi.'sr  tr-je  r^rf"  an^ 
ENGINES”!  MG  :  T  a  ?  S  S  AND  STRAIN,  AND  7F? 
STRESS  AGAINST  Ta  L3  STRAIN. 


r-  a  :  s 
3l;t3 


REAL 

real 

PEAL 

REAL 

REAL 


EXTERNAL  SLOPS 

REAL  Alfl  0  I, A2(’C>,  A3 (1 01, A4(10).A5(  I  71, A6(10) 
A7 ( 10) , Ag( :c  )  , A9(  10  )  . ALC(IO)  .LE3PAK!  500  I 
31(101  ,0  2 ( 1C )  ,a3l  13 ) ,34  <10 ) . 35 ( 10  ) ,  06(  10  ) 

37(101  , e  E< 1C)  ,39( 10) ,310(10) 

SI  (10) ,S2(1C ) ,S3( 10  1 ,34 (10  I ,35( 10 ) ,36(  101 
S  7  (  1C)  ,35(10  ,  S9(  10)  ,510(10) 

REAL  cl ( 10  I  ,E2( 1C ) ,E3( 10) ,E4( 1C) ,c5(  10  I ,E6(  10) 
R=al  E7(10) ,ES(1C)  ,E9(10)  ,£10(10) 

REAL  C  ,C  ,E.  S  ,  Cl-G  ,  TC  ,  TO 
INTEGER  I,?TS1,?TS2,RTS3  ,?tS4,?TS5,?TS6 
INTEGER  FTS7,PTSe,PTS9,PTS10 
1=0 

WP ITE (4,5) 

CCNTIPIUE 
1  =  1*1 

REA0( 57 ,*,ENC=20  IA1 (I ) ,01 ( t ) 

31 ( I ) = A  1 (I )*  < 1*31 ( I ) | 

El (  I ) =ALCG( 81  (  I  1+1  ) 
adjustment  for  instpon  ***** 

C=5. 34 
C  =•  0  5 
E=E1 1  I  ) 

S=S1(  I  ) 

call  slope <c ,c ,e ,s ,chgi 

El  (II =C KG 

***** 

WRITE  I  6, 1)A1(  I)  ,31(11,31 (I  1,31(1) 

GC  >3  1C 
CONTINUE 
PTS 1  =  I-  1 

mill  uiuiiiuiiiu 

I  =0 

WRITE! t, 3) 

CCNT  INUE 
[  =  1*1 

READ!  54,*,5NC  =  40  )A2(I)  ,32(1) 

S2  (I  1  =A2  (II*  ( 1 ,02 (  I  )  I 
SK  I  )  =ALCG<  82  (  I )  *1  ) 

ADJUSTMENT  rCP  IN3TP0N  ***** 

0=10. A 

C  =  .l 
S  =  S2f  I  ) 

E=E2 (  I  I 

CALL  SLCPEIC  ,2  .E.S.CHG) 

E2 ( I  I =CPG 

****-» 

WRITK^2)A2(  I)  ,22m,82(I)  ,£2(  I) 

CONTINUE 
PTS2  =  1-1 

222222222222222222222 

1=0 

WRITE! 6,5) 

CONTINUE 

!=I*l 

PEA01 56  ,* ,ENC=ftO  )A3  (  I )  ,  33 (  I  ) 

32  I  I  I  =A  2  (  I  )  *  (  1  ,»2  (  I  )  ) 

E3  (  I  ) =A  LCG ( 0  3  (  1 1  ♦  l  ) 

ADJUSTMENT  FCP  INSTPCN  ***** 

C--1I.6 
C=.017 
S  =  S3 (  I  ) 

E  =  E3 (  I ) 

CALL  SLCPEIC, C.E’.S.CHG) 

E2(  I  l=CI-G 

***** 

WR  IT*  (6 ,2  I  A3  (  I)  ,32  (  I  ),  33  (  I  1 ,  221  I) 

GC  T?  5  C 
CONTINUE 
PTS3  =  t  -  1 

'i*o .  " . . 

WRITE! 6,5) 

CONTINUE 
I  * !  *■! 

READ! 55  ,*,ENC  =  RO  1A4( I |  , 04( r ) 

34  (  I  I  *44  (  I  )  *  (  1  ,04  (1)1 
£4 (  I  )  =A  LCG (04(11*1) 

ADJUSTMENT  =  C?  INSTPON  ***** 

C’14.2 
C  *  •  0  5 
S*S4 (  I  ) 

E  =  E4(  I  ) 

CALL  SLOPE! C  ,C  , E.S.CHG) 

E4(  I  I  *OG 

***** 


68 


90 

C 


90 

C 

c 

100 

c 

200 

c 

c 

300 

c 

4C0 

c 

c 

500 

c 

600 

c 

c 

700 

r 

300 


WHirc  (6 ,1  )  A4(  !  )  ,S4(  I  )  ,  a4(  I  )  ,  £4<  II 
SC  "3  ’  : 

CCNT  !NU  E 
?T  S-= I  —  1 

4  44  4444444444444444444444444 
1=0 

WRITE)  6  ,  5  ) 

CONTINUE 
1  =  1*1 

READ ( 53 ,*.ENC  =  ICC)  451 1  1,  25  (  11 
S5< I )=A5 ( I  I*  < 1 <9511)  ) 

E5( II =AICGI 95  l  II  *1  ) 

ACJUS  THENT  FCP  INSTRON  ***** 

C  =  23. 7 
0=.18 
S=S  5 (  I  I 
e =65 ( 1 1 

CALL  SLCFH(C,C,E,S,CHG) 

E5(  I ) =C EG 

WHITE (6, 2) A5  1  1)  ,  55  11 ) ,35  II  )  ,  E5(  I) 

GC  TO  9C 
CONTINUE 
?TR5= I-I 

55555555555555555555555555555 

1=0 

WHITE  (  6,  5) 

CONTINUE 
1  =  1*1 

READ! 52,*<cNC=3CC)A6(I I  ,86(  I  ) 

S  6  ( I  l=A6  (I  )*  (1  •»et(  I  )  I 
E6( I ) =  A  LCG ( 8  6 (  I  )  +1  ) 

ACJUSTMENT  FCP  I NSTRON  ***** 

0=41.4 
C=. 1 33 
S  =S6 (  I) 

E=E6  <  I  ) 

CALL  SLOPE (C  ,C  i  c  >S (CHG I 
E6 ( I ) =CFG 

**»r<ire 

WRITE(6«3)A6(  I ) ,56(  I ) , 06 ( I  I  ,  E£  (  I I 
GC  TO  2  CC 
CONTINUE 
PTS6=  I  —  1 

666606666666666666666666666666666666 

1=0 

WHITE ( 6 ,5) 

CONTINUE 

1=1*1 

READ! 40  ,*,SNC=5C0IA7(I  ) ,27(  I  ) 

57(1 ) =  A  7 ( I  I  *  <  1  <97  (  I)  ) 

E7 ( I ) =ALCGl 37  (  1) +1  I 

ACJUS  TNENT  FCP  INSTROM  ***** 

0=53. 

C=,2  5 
S  =  S7  l  I  ) 

E  =  E7 (  I) 

CALL  SLCP5(C,C,E,S,CHGI 
E7(I I =CFG 

iw*«= 

WHITE (6 ,1) A7<  I)  ,S7( I ), 37(1 ) , E7( I) 

GC  to  4C0 

CONTINUE 

PTS7=!-l 

77777777777777777777777777777777777777 

i  =0 

WHITE(6, 5  » 

CONTINUE 
1  =  1*1 

PE AO (39  ,*»ENC=7CC  )A9([ 1 ,281  I  1 
S8(I  )  =  A  6  ( I  )  7  (  1  -*  e  6  (  I)  ! 

E9( 1 1 =ALCG( 98  (11*1) 

ADJUSTMENT  FCP  I N STPCN  ***** 

0  =  56. 

C=.  1 
S  =  S3( I  ) 

E=E3 (  I  ) 

CALL  SLCPEIC ,C  ,E  ,S  ,CHG I 
E  E (  I )=ChG 

*•**■* 

WRITE  (6  ,2)  A8(  I)  ,S8(I)  ,  38  (I  )  ,  ESI  I) 

GC  TO  6CC 
CONTINUE 
P  TS  3  =  I  —  1 

3S998888EE8389ESE688E03889388ES88 
I  =0 

WHITEI6.5I 
CONTINUE 
I  =  (  *  L 

PEAO ( 38i*,SNC  =  5CC)A9(I)  ,89(1  1 
S5(  I  I  =AE  <  I  1  *  (  1  <95  (  I  I  1 
P9  ( I  )  =A  L  CG  (  8  9  (  I)*U 
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C  ACJUSTMgNT  =CP  INSTRON 

C  =  75.  3 
0  =  .  I 
S  =  S  Q (  I  ) 

€  =  E9 ( t  1 

CALL  SLCFEfC  ,C  ,E  ,S ,CHGI 
E9(  I  1 =CHG 

C  ***** 

wSI7E(6,3)AS(I), $9(1), 39(1), E5(I) 

GC  tg  3  CO 
900  CCNT  I  ‘SUE 

PTS3  = I—  1 

C  999999c99999999??9  99  99999999 

1=0 

WRITE!  6, 5 1 
1000  CCNT  T  NU  E 

i*m 

REAO!  36,*,EN0  =  UCC  1A10!  I  1  ,B10!I ) 
sion  i  =  aio  ( i  i*  ii+eiot  1 1 1 
610  < I  *  =  A  LOG ( a  1 0 (  11+11 
C  A  C JUS  TM  £N  T  9CP  INSTRON  ***** 

C  =  ll  9. 

C  =  .25 
S  =  S10(I  1 
E=£10( I  1 

CALL  SL9F?(C ,C ,6,S,CHG) 

610 (  I  1 =CHG 

C  ***** 

WRITS ( 6 ,1 1  AID ( I  )  »S10t I  1 , eiOt 1 1 ,  E10(  I ) 

GC  TO  ice 0 
1100  CONTINUE 
PTS1 0  =  I  —  1 

c  lcicioicicioicicicicioioioioicio 

CALL  COMPRS 
C  CALL  SMOOTH 

CALL  °0L 13 
CALL  3L0  WLP (.85) 

CALL  PAGEdl.  ,a.5) 

CALL  'M  XALF!  '  INSTRL ' 1 
MAXLIN=LlNEST( LEGPAK ,500,201 
CALL  LINES!  '  1.4X10  (  EH.  51-4.*  •  , LEGPAK *  1  I 
CALL  LINES! *  2  «  2  X 1 C  ( SH.  5  I -At'  ,  LEGPAK , 2 1 
CALL  LINES (  *  5.6X10 ( FH. 5  1-4 S'  , LEGPAK, 3  1 
CALL  LINES!  '  1.4X10 (SH. 5 1-3  S'  .LEGPAK, 4  I 
CALL  LINES!  '  2. EX  10! EH. 51-3 S '  .LEGPAK, 5) 
CALL  LINES!'  5.6X10  (EH.  5  I -3  S'  .LEGPAK.,  61 
CALL  LINES!  '  1.4 X 10 (EH. 5 1-2  S'  .LEGPAK, 7) 
CALL  LINES! ' 2.2X10! EH. 5 1-2  S'  ,LEG?AK, 8 1 
CALL  LINES! ' 5.6X10! EH.5 1-2S*  .LEGPAK, 9) 
CALL  LINES! • 1 . 4 X1C ( EH. 5  I - 1 S •  .LEGPAK, 10) 
CALL  MYLEGN! • STRAIN  RATES  1/$J',161 
CALL  FUTL.RA 

CALL  SECCHR ( SC. , 1,. 002,1 1 
CALL  THK CSV ( . C2  1 
CALL  HEIGHT!. 2) 

CALL  XNAME ( ' TRUE  STR A  IN S '  , 100  I 
CALL  Y NAME ( *  T RLE  STRESS ( (  1  MPA (  1) S' , 100  I 
CALL  AREA 20! 2.C.6.CI 
CALL  HEACIN (  '  S'  ,100, .5,2  I 
CALL  HEACIN!  ' STRESS  VS  STR A  I N S •  ,  100 , 1 .5  , 2  1 
CALL  GRAF (0. , . 1  ,1.0, C. ,50. ,  22C. I 
CALL  THKFPM ( .03  1 
CALL  FRAME 

CALL  CUPVF1E1 , S 1 ,  PTS1 , +1 I 
CURVE!E2  ,S2  .PTS2.  +  1) 

CURVE! E3, S3, PTS3.  +  1) 

CURVE(S4,S4,FTS4, +1 1 
CURVFIE5  , S5  ,FTS5  ,  +  L 1 
CURVE! E£  ,  SE, ?TSE ,  +  l I 
CUFVE(E7  ,S7 .PTS7.+1 1 
CURVE1ES  ,SS  ,  PT  $  8 i  +  1 1 
CURVE(E9  ,S9,?TS9,  +  1) 

SURVEfEIC  ,S1C,PTS10. +1  I 
RESET ( ' TEkCRV ' 1 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 

CALL  RESET ! ' PEICET'  1 
CALL  lEGENO (LEGPAK, 10, 5. 5, 3.  1 
CALL  3LPEC ( 3 . 2 ,2. 7 , 2. 5, 3. ,.C 2 1 

WWWWWWWWWWWWkkVWWWWWW 

CALL  MCKJAG  (  •  TEmceratijre  =  S  '  ,  100 ,2.  ,  4.  5  1 
CALL  INTNO! 30C,  '  ABUT' .  -ABUT  ’  1 
CALL  "FSSAG!'  (  EH.  3  1  0  (  Ex  HX  I  C  S  •  ,  100 ,  '  ABUT  '  , 
CALL  3LPEC! 1 «  e  ,4.4,2.7,.4,.Cil 
WnHWWWWWWwmWWV  v  w  w  w  w  w  w 

call  HE S SAG!  '  A  L-  10. 2SMG— 0. 5 2  ?MN  S '  ,100,2.5, 
CALL  3LPEC! 2.3  ,  5. 4, 2.6,. 4,. C2 1 
WWyWWW»WkkW*kkVhWWWWW 


•  ABUT'  1 
5.5  1 
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rlCOtlaCrax  } 
ABUT*  ,  •  A8liT*  I 


CALL  •*<=.  SSAG  (  '  E*-'D  CAM  ^Cl'JTS  ZC  \ GT  S' 

CALL  MESSAG<  ’  INCICATff  =R  aCT  J  P  3  i  *  ,  100  ,  ' 

CALL  3LREC  (  1.1  ..C6  .24,  ,C2  ) 

CALL  G  3  I  c ( 2 ,2) 

CALL  E.NDFLIO) 

CALL  DONE  FL 

1  PCRM AT  I 1X.4F12.;) 

2  FCRMATt 1X.4E12.5 ) 

3  FCSMATU>,4F12.;j 

C4  FCRMATdx,  13  ) 

5  STRESS*  ,2X, -TRUE  STRESS*  « 2X .  *  ENG  STRATA 

3  *  TRUE  STR  A  1. 1  •  <  /  ) 

STOP 

ENO 

SU8R0UT  1NE  SLCPE  (C.C.c.S.CHG  | 

REAL  C,C,c,S,CFC,TC,TD 
TC=C-*tl.+0) 

TC=ALQG(C+l.  ! 

CHG=F— S»TS/T  C 
IFICHG.LE.O. )GC  TC  11 
GC  T1  21 
11  CFG=0. 

21  CONTINUE 

RETURN 
END 


f  2  X  t 
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— *c-~ - %  v  ’.-v  •  n  .  i  =  .  i  in'  |  »  1  »  -i  -'  ■  1  ■  »J.  ■  »  ■  »  l  ■ 1  ■  '  *  l  ■ 1  ■  ■  1  »  l  1 


:  T  ,  a  * 


2C3 

C 

C 


-l  : 

U  an 

-  ;  »F';;  r 
2 !U6N SIGN 

21  '‘p-is ;  c.n 

C I  “F  ‘!  S  I  C.N 

c:u?-ic;cn 
c  i. “c  ns;  c.n 


■ ; :  ; T  4  ;  .  / s  ’-■'•==  - 371=5, 

•  V  5*5*  ' : 

i i :  cr )  ,c  ( •  n->  i ,  iz''.  ( if  i , 2" 1 15 1 ,  si ( 15 

s  l  ?n  :  5i  .skis  si  15 1  ,S2r:u  ; i  ,les?ik( 5  j: 

5? 2CC  (  15  )  ,5225 (1 5  I  ,5*2 25 f  1 5  I  , 52 50 1 1 5  I  , 
5  2  1  5  (  1  5)  ,2.32'' 5  (1  5  )  ,2202(1  5  I  , 5  =  300 ( 1 5  I  , 
52  2  22(1  5)  ,53  5  2(151  ,2P  2501  15)  ,33  75  (  1  51  , 
S4CC  (15)  ,5=400(15 l  ,5425(1  5  I ,SR4i5< 15) , 


!  122  ! 


-  l 


t,j  ,t  ,nr,n  jLii-M'ii-iii 

ST  SI  ,PTr2,p-fs3  ,? T34, P1 S 5, PT $6, PT S 7, PT 33. ?T 59 
PTS  1  5  ,  P  T  5 1 1  ,  PTS1  2  ,  PT  512 


,  f  ,  K  ,  L  ,  !•*  •  N  >  ?  i  C 


INT" 26  = 

INt  2223 
IN  T6  3  2  = 

?TS1=4 
PTS2=3 
PTS3-12 

PTS 4*  4 
PT  S5=  3 
PT  S  6* L2 
PTS  7=  a 
P  T  S  5  =  3 
PTS9  =  11 
FTS10 
P  t  S  1 1  *  3 
PTS 1?  =  3 
FTS13  =3 
I*C 
C=0 

e=o 

F  =  0 
J=0 
K=0 
1  =  0 
p*o 

N*0 
P  =  0 

c=o 

CONTINUE 
1=1*1 

t.PIT5  (6  ,2200  )  I 
Pc A3 (55,  *,£NC  =  i:2)AlI), 8(11, C (I  I 

tar)  IT"  (  6 ,2000  1  l  (  i  )  ,  E  (  I  1 

■  -  -  -  .c 

TC 


5P  2  50  ( 
5  3  2  5  (  1 
3=2  75  ( 
C(  130  ) 


5  ) 
5) 
15  I 


,  V-  (  I  ) 
I 


ir 

7*5 

▼  n 

TC 

TO 

’0 

TO 


2 

3 

4 

5 

7 

3 

7 

10 


I  F ( 3 (  :  )  .to..  125  )  GC 
IF(3<  I)  .50. .216  ICC 
IF ( 9 (  I)  .EG. .5  54  ICC 
IF  1 31  I  ) . 20.  1  .  25  ICC 
IF  f 3(  I  I  .00.2. 78  ICC 
I F ( 3 (  I) .EO. 5. 54  ICC 
IF ( B (  I  )  .20.12.5  )  GC 
I  F ( 3 (  I  )  . EO.  2  7  «g  J  CC 
I F ( 3 (  :).£0.55.4)CC 
I  F ( 8 (  I  I  .EG. 125.  ICC 
CONTI NUE 
J  =  J*  1 

S20 ( J I =o (  I  I 
5P2C (  2  I  =C  (  I  I 

taPIT=(6,lC0C  )S22(J»  ,3R20(JI  .6(1) 

taP  I T  "  (  6  , 2C0  0  I  J 

GC  ’7  2CC 

CONTINUE 

2=0  +  1 

»P !72 ( 4 ,2700  |  C 
S1C0 ( c  I  =o  (  I  I 

SPIOO  (0  l=C(  I  I 

kp  i*"  1 4 . i joc ) si : : ( c i ,sri  :o( o  i  ,6 1  n 

CC  *0  2  C  C 
CONTINUE 
E  =  5  + 1 

5150  (  5  I  =  M  T  I 
5*153(6  l=C(  I  i 

•PIT" (6,1000  I  S 1 5  C ( 6  I » S  ° 1 50 ( 6  )  ,  8 ( I ) 

ta«  172(6  .2700  I  E 

■SC  =7  ICC 

CONTINUE 

P  =  s.  i 

„P^~2!c,2~17lF 
52  00 ( F  i  =  4i  1  ) 

5=22  >  ( c  i =>; :  ;  i 

«P  lr~  ( 4  , 100  0  I  5  2CC( F l ,332  T3( F I ,6( I  i 
GC  *3  222 
c:nt: nue 

H  a  <  +  L 

S225I  *  l »4(  I  I 
5=  22  5  (K  l  »r  (  I  l 

taP  I  75 ( 6 ,1000  I  5 225 (K  I  ,3R2  25  (K  I  ,3(  II 

taP  I  7=  (  6  ,2000  I  K 

GC  ”7  2CC 

CONTINUE 

L=L  +  l 
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i 


i 


r 

1 

I 

1 

I 

j 

H 


§ 

-1 


% 


s 


1 


nno 


WR  ITS  (  6 , 2037  II 
S250! LI -< ( r ) 

S=  2 5  ■>  C  L  t  =C  t  I  I 

WR  ITS (6 ,1000  I  S25CIL  I  ,SR2  50 (L) ,E! 1 1 

GC  ’  I  2  C  C 

CONTINUE 

,»  =  M+  [ 

$2751 W)  *A  (  I  ) 

SR  2 75  <M  l=C(  I  I 

WRITS  (6 ,1000  )  $27  511*  I.SP275  (M  ),e<  I) 

WR ITS ( a  , 2C30  I  M 
GC  T7  2CC 
CONTINUE 
N=N+l 

WRITS ( 6 ,2007  I  N 
$373 (  ,N)  =A<  I  ) 

SR  370  ( N  I  =C  (  I  ) 

wR  ITS (6 ,1330  )  S3CC  IN  I  ,3R303  (N  I  ,8< II 
GC  "O  2CC 
CONTINUE 
P  =  P*1 

WRTT-^  (  6  , 2073  I  P 
S325 ( P  )  =i  <  I  ) 

SR325  I  P  >*C  (  I  I 

wfi tT3 ( 6 ,17  37  I  $3  2$ (P I ,SR325<  P I ,8( ! ! 

GC  -Q  2CC 
CONTINUE 
G  -u  ♦  1 

-PITS  (6  ,237'’  )  { 

$3571  C I *A(  I  I 
SR357 ( G  I  =C (  I  I 

wR  ITS (6 ,107u  )  S2  5C I C  )  ,SR3  50 (G ) ,8( I ) 

GC  r3  ICC 
CCNT!  ►;ue 
CALL  CCPFRS 
CALL  RLCWUPUSS) 

CALL  '*  I  X  A  L  c  (  '  T  N‘  3  T  ?  IJ  '  ) 

RA  XL  IN- 1 INS  ST  t  L  SCP  a  w  .5  77  ,20  I 

CALL  LINES!  1  7 • A  x  1 C  I  Sw. 5  I  — A  s  '  ,lEGP1K  ,  1 1 

CALL  L  INESI  •  2 .2X10  I  EH.  5  )—.*•  ,lEC-?t.k  ,2  ) 

CALL  LINES!  •  5.6  X  I  "  (  :H.  ?  l-'.i  <  ,  LEG?  A  K  .3  I 
CALL  LINES!  '  1.4x10! CH. 5  I  -  3  i  '  »LEG?AK  » A  I 
CALL  LINES!  '  *  •  2  x  10  (  EH.  5  I  -3  *  '  ,LSG.?AK,5) 

CALL  LINES!  ' 5.eX  1C ( EH. 5 ) -3  S •  ,U3G?4K  ,6  I 
CALL  LINES! ’  l.txlO! SH. 5 ;-2S'  , L 5 G P A K  ,71 
CALL  LINES!  '  2.cXlC(  RH.  5  l-2t'  ,  LEG  PAX.  ,8) 

CALL  LINES! • 5.4  X  10 ( Sh. 5 1-2* '  , L2GP4 K , 3  1 
CALL  LINES!  •  ! .4  X  1C (  SH.  5  I  -1  J  '  ,LSG?*.K  ,10  I 
CALL  WY  LcGiI  (  '  I T  3  A  IN  ^ATE5  1/Si', 161 
CALL  PAGEdl.  ,  e  .  5  ) 

CALL  =UTLPA 

CALL  3hCCL‘P!GC,,l,.:02,l) 

CALL  7HKCPV ( . C 2  I 
CALL  HE  tGhTI .2  I 

CALL  <NAME(  •  T  E*  PEPA  TUP.S  ( EH.  3  )C  (  SXH  X  I C  S', 130) 

CALL  rr.AHf!  '  STRESS  AT  7.1  STRAIN  ((INPAlll  S',i 

CALL  P0LY3 

CALL  7RC123  l  5.  ,a„  I 

CALL  HEACIN  l  '  !’,  10.7,.  5,2  ) 

CALL  HEACIN!  ■  STRESS  VS  T  r‘1PE  RATURr  S  '  ,133,1.5,2) 
CALL  GPAE!  1.  ,5C.  ,45  C.  ,  3.  ,1  37.  ,603.  ) 

CALL  THKFRN ( ,C2  I 
CALL  RPAHS 

CALL  CUPVE!  SP2C  ,S2C  ,?TS1  ,  <■  1  I 
CALL  CURVE! 3P1C0  ,S1S0,PTS2 , +1  I 
CALL  CURVE! SR  ISC  ,S1S7,?TS3 ,♦! ) 

CAUL  CURVE! SR203  «S2C0»PT$4, ♦] ) 

CALL  CURVE! SR  225  ,S225,?T$5, *1  I 
CAUL  CURV£(SR25Q»S25C«PTS6»+1 ) 

CALL  CUPVE(SR27S,S275,?T«7, *1 ) 

CALL  CURVE ( SR3CC  ,£3C3,PTSS , ♦ 1 ) 

CALL  CUPV6($RS25,'325,?TS9,*1) 

CALL  CU PVGISR250, SEE, ,PT SI 7, »I ) 

CALL  CURVE(SR?75,S275,?TS11 .♦!) 

CALL  CURVE! SR4CC  ,3400, PTS12 ,♦! I 
CALL  CURVE! SP‘25  .S425  .PT313 , *1 ) 

CALL  RESET!  •  Tl-KCRV  ■  I 
CALL  RESET!  '  t-EKHT'  ) 

CALL  LrGENO(LEC?«K ,10,5,2.5) 

CALL  3LP EC !A. 1,2, 2, 2.5,3., .02) 

CALL  HIES  SAG!  ■  AL-10.  25MG-7.52  INNS'  ,1C0 ,2.5  ,5.5  I 
CALL  ELREC ( 2.2  ,  5.*  ,2. 6,.A,.C2> 

CALL  G R  I C 1 2 . 2  I 
CALL  ENCPL(C) 

CALL  0  3  N  P  P 

FCRRAT!  l/.F’C.A  ,1X,  R10.4  ,1X , F10.4 ) 

FORMAT!  IX. 12  ) 

FCRNAT!  1X.3F12.; ) 

ST 


nm  OO 


fucts  ucc  'T  ;--a:  ,  • 

4  »  *  x  *  •  *  4  i  »■■■  ‘  I-*  3  i *  -t  j;  •  • :  «  a  *  * 

cr  wc  is :  c\  a*  icci  .c  (  id:  i  .  :co  1 17  > .  3-2  c ( : :  > .  slo'- 1 1 • 
ci^ensicn  sisccci, '01  =  711:1  ,52:011 ■: i , iegpam *  i 

GI'^'iS  ION  3  3  2  C  C  I  10)  ,322?  (I  3 1  , 5°  27  S(  12  )  ,  32  50  (  i  J ) 

CINE NS I  CN  32  7  S 11 7 )  ,  3  =  2*5  U  7  I  ,32  '  3  ( 1  '  ) ,  SR  2C  j  ( 1  3  ) 

CINENS  ICN  S?.  22?  I  1C  )  .33  *0(10  ,  2=  7  *7  (  1  *  )  ,  S3  75  1 1  7  1 

QV*E  ISICN  S4CC  (1C)  ,SR4C0  (10  )  ,342*1 1  C)  ,  SR 4251  1  O 

INTEGER  I.J 

INTEGF3  ?-$l  ,  RTS 2  ,?T33 ,?tS4, E7$5 ,?r  Sfc  ,PTS7,?TC3 , 
INTEGER  FTS1C  ,?TS11  ,?TS12. ?T 313 


INTEGER 


3  R 1  1 3  (  1 

(257(171 
•:?{  1  j  I 
>275  ,17  ) 
100  ) 


INTEGER  FTS1C  ,?TS11  ,?TS12. ?T S13 
PTS2=2 
PTS3=2 
PTS4—  7 
PTS5= 7 
PTS6= 10 
PTS7»10 
PTSa=10 
PTS9=  7 
PTS1 7=3 
PTS 1 1  =  2 
FT  SI 2  =3 
PTS13  3  3 
1=0 

CONTINUE 
I  =  !  + 

WRITE (6 ,2000  )  I 

READ  (  55,*.2N01CC!A<I)  ,6(1)  ,C(II 
WRITE (6,20  30  10 (  I  1,6 (I)  ,C (I  I 
IF ( I. GT. 2  I GC  TC  1 
SI  CO  ( 11-4(1 )  *  1 .  S  £ 

SR  100  (  I  )=«<  I  M.CC1 

WRITE  (6  ,1000  )  SI  20  I)  ,SRIC0(  I  ) 

GC  TO  2CC 
CONTINUE 

I F (  I.GT.; 1GC  1C  2 
J~  I-  ’ 

wRrrE  (6  ,2000  )  . 

S1301  j  )  =i(  I  I  * 1«E i 

sr 1 5°  <  j  j  =6 ( i )  * , :c  1 

■  RITE (6 ,100 J  )  S15C ( -  1 ,3R153  (  J  ) 

GC  T0  2CC 
CONTINUE 

I  F ( I.GT. 12)30  T3  2 
j* 

»R ITE (6  , 2 ' 7  '  I, 

S200 1 J)»4( I  I »1.2E 

SR 200  ( J  )=8(  I  M.0C1 

WRITE (6  ,!00C  )  S2CC I J  )  .3R2C0 ( J  I 

GC  to  2 CC 

CONTINUE 

£££££££££££3 ££££££££££ ££££££££££££££££££££ 
IF( r.GT.lEJGC  TO  4 
0=1-12 

WRITE  (  6  ,20V)  )  „ 

S22*( JI=D( I )»  !.2E 

SR 22 5 ( J  )  =8 (  I  )  w .001 

WRITE  (  6  ,  nOO  )  S23  I  (  J  1 ,3R  2  23  (  J  ) 

GC  T"1  2 C C 
CONTINUE 

IF ( I.GT .29) GC  TC  5 
J  =  I  — 1  9 

S25C ( Jl -t ( I  ) *  1. 2  5 
SR 2 50 ( J  )  =e (  I  I*. SCI 
WRITE ( 6  ,2000  )  j 

WHITE ( 6 ,10  )C >S2  5C( J  )  ,3R250( J ) 

GC  TO  2CC 
CONTINUE 

££££££££££££££££  {£££.££££££££££££££££££££££ 

I  F ( Io  GT .29 ) GC  TC  5 

Jar-3'; 

»R  ITE (  6  ,200  0  IJ 

S275(  Jl  =  M  I  !  »!  ,CS 

SR 2  75 ( J  )  =“ (  1* . SCI 

«SITr  16  .  100  7  1  S  2  7  5(  J  ) ,  ',.7  2  75  (  J  I 

GC  TO  2CC 

CONTINUE 

I  F (  I.GT . 491 GC  TC  7 
J» I  — 3  9 

S200I  J) =4(  !  ) ♦1.25 
SR 300 ( J)  -«(  T  1W.CC1 
WRITE ( 6  ,2000  I  J 

W«ITE(6  ,  100  0  )S2CC( J ),3P 3  00 ( J) 

GC  TO  2  CC 
CONTINUE 

££££££££££££££££ (£££££££££££££££££££££££££ 


nnonnon 


*R IT S  (  6  ,2000  I  J 

S22  5  (  Jl  =4( I  I  *  1.24 

SR  32  5  (  J  !=■*(  I  I*.  OCX 

*RITE  (6 ,1000  I  S3  2  5  ( J  )  ,SR325 ( J  I 

ac  -o  2cc 

CONTINUE 

I  F  (  I. GT.50I GC  Tr  r, 

J  =  I— 5  o 

S350  (J) =4(11*1. Si 
SR3511  J  )=>3(  I  )*.0C1 
WRITS! 6 ,2000  1  J 

WRITE  <6 ,100  0  I  S3  5CI J  I.SR350 ! J  ) 

GC  T0  2  C  C 
CONTINUE 

££E£EIEt,£E££Eli££EES2E£££££Cfl£EE£CEl£££££££££ 

IF( I.GT.E21GC  TC  1C 

J=l-5R 

WRIT: ( 6 ,2000  | j 

$3751  JI=A< I  ) *  l.  =  6 

SR375  <  J  1=R(  I  I*.CC1 

WRITS! 6 . 1000 ) S3  Oil ) ,3R375  (J  I 

GG  TO  2 CC 

CONTINUE 

I F (  I.GT.451GC  TC  11 
J*I-02 

S40O(  j  j  = A  < I )*l.2i 
SRaoo  (  j  i  =t) (  I  ) * . C C 1 
WRITE (6 ,2000  I  J 

WRITE (6 ,  10  0C  )  I4CC (J  I  .SRACG! J > 

GC  *0  ICC 
CCNTI NUE 

£££££££££££££££££££££££££££££ £££££££££££££ 
J  =  I— "3  5 

wflIT3(i ,2000 U 

$425! j i =l| I )* l. if 
SR<*25(J)=E!  I  H..S1 
wR  ITS ( 6 ,1300  )  $A 2  5 ( j  1 ,2  2-25 ( J I 
GC  T1  2  C  0 

continue 

CALL  CONORS 
CALL  3LCWUR (.EE) 

CALL  SMCCTH 

CALL  R'NTh 

CALL  ?  A  G  S  ( 1  1  •  ,  ?  •  5  ) 

I»AXLI  N=  LINE  ST  (Li  CP  A  <■  ,5*r  ,20  I 
CALL  LINE'-!  '  ICC  t  '  ,  lEGPAK  ,1  I 
CALL  LINES!  '  lECi  ',L  GOPAK.,  2) 

CALL  LIMSI  '  2CCi  '  .  LOGPAK  ,3  ) 

CALL  LI  AES (  ' 2  25  5  '  ,L:GP1K  ,4  1 
CALL  Li N  =  S (  *  25CA • ,L  OS? IK ,5 ) 

CALL  LIN*'!  *  203  i  •  ,  L2GP.VK  ,o  ) 

CALL  LINES!  ’2CCi '.LSGPOK  ,71 
CALL  LINES (  '  225  t '  , L2GPAK.1  I 
CALL  LINES!  '  3  50  J  '  ,  L  "G?  A  K  ,R  I 


call  line; 


L  !  NE.-  (  '  ACS  S  '  ,  L  : 


,  L2GPAK  ,2) 


c 

c 

c 

c 

c 

c 

c 


c 

c 


1000 
200  C 
30GC 


CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 


CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

FCR 


2  5  S  •  ,  :  "  ■  <  ■  1  1  I 

IN  :  T  F  L  1  I 


i  1  ) 


-  AT  2  St  =H.;  5  —  1 S •  ,102 ) 

AT  0.1  5TFA IN  t  (  IP A ( )  J  J  *  , 1 0J ) 


^ :  n  c ' ;  1 

-*  t  X  A  L  -  ( 

FLTL- A 

St-CCTR  !  SC.  ,1  , 
thkc.'v  t  ,C2 1 
h£ I GHT ( . 2  I 
LNAM£(  • SIP  A  IN 
YN  AMC ( 1  STP £  SS 
AP2A20(  S.  ,c.) 

HcACI'l  (  1  S  *  ,  ICO,.  5  .2) 

HEACINl * STRESS  VS  STRAIN  R  A  T=  S  1  » 1 20 , 1.  5 , 2  ) 

LCGLCG ( .CCC1 ,2. .oOCCOCO.  ,3. 1 

THKFRM( ,C2  ) 

FRAME 

CURVE!  SP1CC,  S1C0,PTS2,»1  I 
CUR vet  3F  150  ,S1 SO, PTS3, *1  ) 

CURVe(SR2C;,S2C-',?TS4,*l) 

CUPVE(SP225,S225,?TS5,*1) 

CURVEISP25C  »S2 50 »?T So, +1  I 
CUFVEI3P275  ,  C2T  5  ,  ?  T  S’  ,  *• !  I 

. .  . .  II 

I 

- - - - - -  .1  I 

CUP  vet  SR  27 5, 3275, PTiil, *1  I 
CURVE  <  SR 4CC  ,2400, PTS12  ,  *1  I 

CURV=(S?*25,$425,?T$13,*1> 

RE  S  ST !  ' TFK  CFV  1  ) 

RESET!  'hEIGPT'  I 
“YIEGNt  '  T  E  ^  c  EP  A  TUR  2  CS'  ,12) 

LEGCMCILECr JK  ,  2 , o  «  ,  .3  I 
2LPEC  t  5.?,. 2 ,2  ,  .1. ,.02 ) 

TEMPS  TC  22  5  CC  V“E‘I  T  CUT  'LIMES'  FCP  250-425  AMO  vIC 


CALL  CURVE  (SP  2CC  ,S2CG,P’"'P  ,*■  I  1 
CALL  CUPVR(3P225  .3235, PT3P,  ♦  I 
CALL  CUR VE< CR25C  ,S? 5C.PT3I J  ,  ♦] 


FCP  TEMPS  35  0  — ,2 5  CHG  LEGEND  FPCM  3*70  4  4N0  BLPSC’  2. A  TC 


10, 2.1  ,.6) 


ALSO, 

1 . 4. 

WWWMWWMWWWWWMWWMMnMw* 

CALL  '"ESSAG  <  '  AL  -  ! 25MG-0.  52  tMN  i  <  ,1 
CALL  3  L  *w  C  4  «  ~  .32) 

W  W  WWW  WwwWwWW.  .  ,  W  ,  h  „  .  n 

CALL  SP  I C ( 1  ,  1  I 
CALL  ENCFL10) 

CALL  3  C  N  E  °L 

FCRMA't  1A.F2C.5  , 1 *  , F2D. 1  2) 

FCRMATI  1 X ,  I  2  ) 

FCPMAT(1X,3F12.5 I 

CT'-'p 

END 


VFRSA- 


w 
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l :  i  4  ~  ‘  4-:  j:  -_r 

c:«p-:s:r*:  w  icc  i  ,st  :oo  i ,  32c  i  :3  i  ,s~ 201 1 3  i . gicoi i 5  1 ,  sai 

0  I  PEN 9 !  CN  S13C  1 1 5 )  ,23150(151  ,£2CJ( 1 5 ) , L2GFAK ( 5  TO ) 

Cl. PEN  3  I C  r  '.’2  00  t  IS  I  ,12  2  5(15)  ,232:51  15)  .S250115  l  ,22  25" 
Cl  PE MS  I  CN  S  C-7  5  (15)  ,£32?5  (25  1  ,2?no(  1  5), 2P.  301(12)  ,S225( 
Cl “ENSIGN  2  3  2  25 115  )  ,22  50  (  1  5  )  ,2325'  (  l 5  I  ,23  75  (151  ,S3?7  = 
CIPENS  ICN  S4CC (13) ,  23400 (1  5  )  ,24  25(  1  3  ),  23 425(25), C ( 1C2 
I N  T  .  ^  r  3  I  ,J  ,  C  »  F  ,  F  ,  i <  ,  L ,  P  ,  7> ,  3  ,  C 

INT-GcR  ?TSl,rT22,3'r22,?TS4,FfS5,?T2£,3-3S7,?TS3,PT29 
IN  T£G  2 3  3TS1C  ,  FT  SI  1  ,  ?T  2  1 2 ,  PT  £  12 
PTS1  =  5 
PTS2=6 
PT  S3—  7 
FTS4— 7 
PTS  5=  7 
FTS6=5 
PTS7=4 
PTS6  =  3 
1=0 
c=o 
8=0 
p=a 
j=o 
K=0 
L  =  0 
P=0 
N»0 

CCNTINU8 
1  =  1*1 

w R  ITS  (  6 , 200C  )  I 

peP0(S7,»,PNc  =  icc)i(i)  ,6(i)  ,cm 

WRITS  (6  ,2000  1/(1), 6(1), C(I) 

I F  ( C  (  I)  .80.25. )GC  TC  1 
I F  (  C  (  I) .80. 3C •  )  G  C  TC  Z 
I F ( C  (  I) .cQ.75.JGC  TC  3 
I F  <  C (  I ) .cQ.iCC, IGC  rn  4 
IFtCl  I  )  .80.152.  ICC  70  5 
I F ( C (  I ) .20.: CC. IGC  7C  5 
IFtCl  I  )  .H0.2CC.  IGC  TO  7 
I F ( C (  I  )  .60.35C.  IGC  TO  3 
CONTINUE 
J=J  +  L 

220 (  J I =  6 (  I  ) 

2.3 27(  J  )  =4  ( I  ) 

WRITS!  6  ,1P0C  I  SOT.  (J  )  ,SR20  (J  )  ,  E(I  ) 

WR ITS (  6  ,2230  )  J 
GC  T0  :c: 

CONTINUE 

C=0*l 

WP  IT  2  (  6  ,200c  1C 

smi  o)=6(i) 
spio ) (o  i=4( :  i 

WRITS ( 6 ,1000  )210C(0  1,33100 ( C 1 ,a<  I  I 
GO  T0  2  C  C 
CONTINUE 
8  =  8*1 

£130(21=6(1  ) 

SR  150 (£1=4(1) 

WRITS ( 5 ,1000  ) £130 (E ) ,2 P 150 (  2  I ,6(1  I 
WR ITC ( 6 ,2200  )  E 
GC  TO  2CC 
CONTINUE 
F  =  F  +  1 

WF ITS  (  6 ,  200  n  I  F 
£2C0( c ) =5( !  i 
£3200  (  F  I  =4  (  I  I 

WRITE  !6 ,1000  I  £20C(F  I  ,SR200  (  S  )  ,8  (  I) 

GC  TO  2CC 
CONTINUE 

K*W  *1 

£2251  K )=R(  I  I 


¥*t* 

GC 
CO 
L  =  L»i 

WR  I"  (6  ,200^  )  L 
'25:iD»e(  i ) 

SR350  (L  ) - A (  I  ) 

ta» ' T= (6 . 1000  )  S2;ct  L  )  f 53259  CL  J  .a ( n 
gc  "i  rc: 

CCNTINUE 

f* «  M  +  i 

$275!  M  |  »ec  I  ) 

SP275  ( M  )  -  a  (  I  ) 

*P  IT*  '  4  ,  1070  1  S27E!  ,“)  ,SR275  (4  l  ,8!  I) 

C.3  ITS  (6  ,2000  )N 
GC  TO  2CC 
CONTINUE 
N  *N  +  L 

V.SITS  I  6  ,200  0  IN 
s2io(Ni  =  ei i ) 

£3  300  C  N  I  =  A (  I  ) 

WAIT*  (6  , 1  DOC  )  S3CCIM  .GR300CN  I  ,B  <  II 

GC  TO  2CC 

CCNTINUE 

CALL  CCNPP3 

CALL  9LCI»UP!o?5) 

CALL  SMOOTH 

CALL  PSMh 

CALL  PAGE 111.  , c  o  5 1 

MAXL! N  =  L  INES7 (LSCPAN  ,5  00  .20 ) 

CALL  LINES!  '  Sfi  ’  .IEGP4K, 11 
CALL  LINES!  • ECS1  ,LcCPAK,2) 

CALL  LINES!  ’  7ES*  .lEGPNK, 3) 

CALL  LI  N63  (  •  ICC  i  •  ,  L  SGP  AK  ,4  I 
CALL  Li  NSS!  ■  1  ECi  *  .LcGPAK  ,5  I 
CALL  LINES!  •  ICC  l  1  ,  L  EGP  AK  ,6  I 
CALL  LINES!  1  ICC  I  ■  ,  L  £  CP  \  K  .  7  ) 

CALL  LINES!  •  2  ECS  1  ,L:G?AK  ,3  I 
CALL  * 1  XALF  (  1  INSTSU  •  I 
CALL  FLTL.OA 

CALL  ShCCHP I 9C.  ,  I ,.072 , l ) 

CALL  THKC/V <  „C2  I 
CALL  HE  I CH t (  .  I  | 

CALL  XMANE(’!/T  X  (  =  h. 3  )  -  1  S  •  ,  ICO  1 

CALL  Y  N  A  N  E  !  1  S  7  P  A  IN  r  AT  E  S  (  c  h  .  3  1- 1  5  •  ,  IOC 

CALL  APEA20 (  f  .,4.) 

CALL  EEACIN!  •  i  '  ,  ICO, .5,21 

CALL  hRACIM!  •  ST  =  A  IN  TATE  VS  I  /T  S  • ,  100,1 

CALL  YLCCI,  ."Cl*  ..  JCC2,.  OCOi  ,  1.91 

CALL  THKFPM  (  .C3  I 

CALL  SPAN"? 

CALL  CURVE! SP 20  .  <20  ,PTS1  ,-’  ) 

CALL  CURVE! 0P1CC  ,Si:0,PTS2 .-! I 
CALL  CURVE ( SP  ISO  ,£150,?T£3 ,-i ] 

CALL  C  U  P  V  E  ( Sr  2C0  ,S2'0,PT£4,-1) 

CALL  CUFVEISP22E  ,S225,PTS3,  —  ’  I 
CALL  CURVE! OR 2:C  ,  02 50,PTS6 ,- 1  ) 

CALL  CUPVC( SP  275  , S275, PTS7,  —  ! I 
CALL  CUFV* ( S? S'-'  .£3r7, PTS9 ,-I I 
CALL  7  E  S  ET (  •  TRXCTV  •  1 
CALL  3E  5.  ET  (  1  RE  I  CRT  <  I 
CALL  ■'NISON!  1  STRESS  ■'P  «  5  1  , 1  0  ) 

CALL  LEC|NC(IEG?AK,?,5. 7,1.5] 

CALL  3L  R  cu [ ~  a  z  .l,a,-o,2.c, «  C  i  1 
V  t  X  to  n  .  * 

CALL  ‘4ESSAG(  'AL-1C.2  tHG-O.  5  2  INNS'  ,  ICC  .  <• 
CALL  91FCC  I  P.2  ,5.4  ,2.  0,  .4,  .C2  I 

,  to  to  to  to  to  „ 

CALL  CR  IC(1 ,  1  ) 

CALL  SNCFllO) 

CALL  OCNE=L 

Fr  =  MAT (  1 X, A  SO.; . IX .  r29. : 2) 

FORMAT (  ]  X  ,  I  S  I 
FORMAT! :>,3F12.5) 


rv  *  %  'r’vr,  v*;  v 


B 


2C0 

C 

c 


:  5 ) « 


dC'r 


?  L  C  ~r  5  ’  -  L  - '  •  ■-■  >  .  ■  J. .  z  • 

' 1 T  ■  - 

CI-nSICN  4(1001, 2(1  ?"M,  52  71  12). 2  32  0  115), 51  CO 
‘  51 3C l 15 )  ,5?  15  0  11  5  l  ,22'.0<  1  5  > 

S  3  2 1-  C  (  15)  ,52  ’  5  <15  I  ,$3  2251  l;)  ,  52501  1  =  1  ,  53  250  I  15  I 
S  2  7  5  1 1  5  I  ,  ;*-»7 3  (1  5  I  .5300  ( 1  5  ).  $3300  1  15  I  ,  3  1  251  151 
3  3  225115)  ,52  50(15)  ,  $  R  3  5^ (  15)  ,5275(13)  ,532751151 
S40C  1 13  )  ,  5P40011  5  I, $425(13 ) ,53425(151 , C 1 100) 

I  ,  J  ,  C  ,  c  ,  r,<  ,L  ,3  ,3  . 

:TS1  ,  ?  T  $  2 ,3752 ,?T54,rl$5 »?  T  $6 ,  FT  S  7 ,3  S3  .  PT  S  3 
FT  SIC  ,  FT  $1 1  ,?TS12,?T  $13 


,211) 
,  C  (I  1 


Cl!) 


'3  3 


CI-sN  $  I  CN 

cime*! s  icn 
ci  -ns  i  cn 
c  iMn  sign 

CI  -ENS  ICN 
INTEGER  ' 

INTEGER 
INTEGER 
PTS1=4 
PTS2=3 
FTS3=13 
PTS4-=  6 
PTS5=3 
P  TS6=  1 3 
PT$7=6 
PTS3=3 
PT  S  3= 1 3 
PTS10 -  7 
PTS1 1 =3 
PTS1 2  =  3 
PTS13  =3 
1=0 
C=0 
E  =0 
F  =  0 
J=0 
K  *0 
L  =  0 

l»»0 
N=0 
P=0 

c=o 

CENT I NUE 
1=1*1 

WPIT=  (6  ,2000  I  I 

REioi  ?fc ,* ,enc  =  i::  ).*.(! i 

WR  ITE  (  6  ,2000  li  1  I  1  ,2  1 II 
IF1B1  I  I  .EC.  .125  ICC  TO 
I  F ( 8 (  I).$G..27E)GC  To 
I F ( 8 <  I)  .50..  3 54  ICC 
I F  (  3  (  I ) .60. 1. 25  ICC 
I F ( 8 1  I) .20.2.76  ICC 
IF ( 3 {  I I.EC. 2.2i  ICC 
I F 1 B (  I ) .20. 1 2.5  ICC 
I F ( 8  (  I) .EQ. 2  7 .2  ICC 
IF131  I  I .EQ.55.C  ICC 
I F ( 3 (  I ) .20.1 25.  ICE 
CCNTINUE 
J  =  J*1 

S20U  )  =  MI) 

SR20 (  J ) =C  l  I  ) 

WR  ITE  (  6 ,100C ) $20 ( J I  ,5320  ( Jl  ,2  (I  ) 

»P  ITE  (  6 ,2000  )  J 
GC  *0  ’CC 
CCNTINUE 
C=0*L 

WR  ITE  1  6 ,2000  )C 
$1001  0=4(1) 

SRIOO  (  C  )  =C  1  !  ) 

WRITE  1  6  , 1000  I  S1CCIC  > .SRICOt  3  I ,fl(  !  ) 
GC  T"i  2CC 
CCNTINUE 
E  =  E  +  l 

$1501 E ) =41 !  ) 

$P150(E  )=C(  I  1 

WR ITE (4, 1000 IS15C(EI,CR150(EI  ,8(  I) 
WR  ITE  1  6  ,2000  I  E 
GC  TO  200 
CCNTINUE 
F  =  ^i 

»R  t”2  (  4  ,20CC  I  F 
$200 (  F ) =4 1  I  ) 

$P200  1  F  I  =C  1  I  ) 

NR  IT  -  (6  ,  I  OOC  )  $20C( F ) ,GR2C0(  F l ,3(  I  I 
GC  ’0  2CC 
CCNTINUE 
K  =  K*1 

S225I  K ) =  4 ( I  ) 

SR225  ( K  )  =C 1  !  ) 

WR ITE (6 ,1000  I  522 5 (K  ),ER2  25 (K  )  ,8(  1 1 
WRITE (6  ,2000  I  K 
GC  TQ  2  C  C 
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TO 

TC 

Tf> 

t  r 


l. 


.W  L  -  .  -  -W  1-.  .....  ■  -  U»,L:. 


OUUUUUUOO 


*R  tT  :  i  -  .  20n0  I  L 
S3  50  l  L  !  =  A  (  i ) 

SB  2  50  (  L  l=C  !  I  t 

wBITS  '  -3 ,100C  IS2:C(L  I  ,3?2  50  (L  )  ,c(  I) 

CC  TO  Z  cc 

CCNTIMiE 

*,  -  V4.  ^ 

S  2  7  5  (  «i=im 
SB 27  5 <«  i=r;  ;  ) 

WRITS  16  1 lO''7  )  S27  5  If*  )  ,3R2  75  (  M  I  ,c  1  !  ) 

WR  I  TS  (  6  t  230C  )  f* 

GC  *1  2CC 

CCNTINLE 

N=N*1 

WR ITS ( h ,2003  I  A 

S3  GO  (  '4 1  =d(  I  ) 

SR300 IN  >=C(  I  ) 

WRIT"  (6  ,1000 ) S3CC (N ) ,SR3C0 I N  )  ,3  <  I) 

GC  *0  2  C  C 
C  C  N  r  I  Mj  E 

p  =  o  +  i 

wH IT-  (  6 . 20  30  )  F 
S 325 ( P! =A  (  I  ) 

SB  325  (P  l=C  (I  ) 

WR  ITS ( fc  ,  1G0C  I  S3  25 (P  ),SR3  25( P I .3(1) 

GC  *3  2CC 
CC'JTI  OLE 
C  =  >1 

-BITS  ( t  .2'1'7'  I  C 
S3 5  1  (  3  l  =  A(  I  l 
S ? 3 5 3  ( 0 )=CI  I  ) 

*s  its  ( 5  .  i:g:  i  S2  5ct •;  i  .sb.350 ( g  )  ,at  i ) 

CC  '3  2Gr 
CCNTI  NUc 
CALL  SCPc::S 
Call  3LC'„^7  (.651 
CALL  RAGc(11.*c.5) 

CALL  “I  >tl- <  1  IN2T-L  1  ) 

CALL  S'JTCBA 

call  SHCC.-P  (  SC-  ,  i  ,.C02  ,  1  I 
CALL  *HKCr/(.C2l 
CALL  - :  I  C r- T  (  o  2  I 

CAlL  <NA*-<  •  tE«R?FA ’L?.  E  (SH.’ICIsXHxiCS* 

CALL  'N  4.*s.(’l  SLCNCATICNt’ , ICC) 

CALL  3'iCC’H 

CALL  7r,Ll3 

CALL  3Sy,B 

CALL  AR3 270 (  c.  ,4  .  ) 

CALL  reACI'l!  '  1*  ,  l'7')  ,.  5,2  I 

CALL  HPACI'M  ‘CLCTHITY  V  S  T  ST  F  E  B  A"U  P  S  l  <  ,  1 0  I ,  l  . 
CALL  .-CAF(  3,  ,  5  C  >  i  A  5  C»  >  C.  ,132.  ,700,  ! 

CALL  THkpcm (  ,C2  I 
CALL  r  R  A  BA¬ 
CALL  RESET(  ’  t-£  IGf-T  «  ) 

W  W  w»,W  . - 

CALL  £  SAG  I  ’STRAIN  3A*S  =  *  •  ,  10 7 , 1  .  ,  3 . ) 

CALL  BP  AL-'O  l  C  .C5£  '  AoLT’  ,  -ASUr'  I 

CALL  *  £  S  S  AG  l  '  $(  EF.5 I- i S IOC , 'A3UT ' , ' A3UT'  ) 

CALL  3L  F  EC ( o S  ,2.5  ,  3 . , .02  I 

CALL  ME  SS  ‘G (  '  AL  -  1C.2IMG-C.  52  3FN t • , 1 CC , 2 . £ , 5. 5  I 
CALL  3L  FSC ( 2. 3  ,  5. 4 ,2.  o , .A,  .  C2 ) 

WMfftoWWW.wnWWWWW 

CALL  CU  F  VF (SB2C  ,S2C  ,?TS1 ,-l  I 
CALL  CUFVE! SB  ICC  .S1C0.BTS2 1 ) 

CALL  CURVE! SR 15C  ,  S 1 50 , P T S3 ,  — !) 

CALL  CUFVE(SR2CC,S2C0,?TS4,-1 I 
CALL  CURVE! SB  2  25  ,S225,?TS5 ,-l ) 

CALL  CURVE! SR  253  .S2  50.PTS5,—  ] ) 

CALL  CUFVF! SR  275  ,2275  ,RTS7,-1 ) 

CALL  CURVE! SP3CC  ,  S2CC, RTS3 1  I 
CALL  CLFVE  (  SR3  25  ,  S325  .RTSO  ,-M 
CALL  CURVE! S335C  ,S3  50  ,PTS10 ,-l) 

CALL  BESET!  • tFKCRV 1  I 
CALL  GP  T  C (2 . 2  » 

CALL  E*IC  "L  1  G  ) 

CALL  GCIEBL 

FORMAT!  !  X  .FCC.B  .  IX  ,F10.if  lx,  FlC.->  I 
FORMAT!  ’,,131 
FC?«AT ( 5  x .3F12.5  t 


^  JL  JT:  .  ; w  ''  G  / c  >_  2  >  '  T  U  a  [  s  -  i  I  :  . 

c ;  *?. n s i  : n  a  (  i  c c  ) .  e  (  t  c o  )  .  ^ 2  c {  101  .-ss^ci  t  c  )  .  s  i  c c  (  1  3  j  .  2  r  i  ■:  l  i  1 

GlMPN^i  :,N  3  1  2  C  t  10)  ,  3  ft  l  5  C  (  l  u  )  .  i  2  C  C  (  l  C  ) 

C  I  MgNSI  CN  3R200 (  i  G  )  .  2  2  2  E  l  10)  ,  '5  ft  22  5  (  1  Q  )  .  52  5  C  (  l  0  )  .j325C(  1  0  ) 
SI  *ENSI GN  32  75  (  10I«SS27«(IO).S2CQ{10).5KJOO(10I.5J2  5(1C) 

3  I  MENS! CN  S*  225  <  i  0  )  •  S35C  (  1  0  )  .Sft  25  O(IC). 3273(10. 5R3  75  <  iQ) 
J[  m^nSIGN  S4C  C(  lOJ.Sfi^CCllQ)  .54251  1 0  )  .  3B4  25 {  10)  .C{  ICC) 
INTEGER  I  .  _ 

INTEGER  BTSl  .PTS2.»;TSJ,PTS4.PTS5,Prse.PTS7,PTsa,FTS9 
INTEGER  B TSIC.PTSh.pTSU.PTSI  j 
PTS1  =  J 

prs2=  i 

PTS3-* 

PTS4s 7 
PT  S5  —  7 
PTS6=  10 
PTS7= to 

pTsa= to 

PT  SR= 7 
PTS  l  Qs J 
PT  S 1  1=3 
PTS  t  2  =  3 
PTS l 3  =  3 
1=0 

200  CONTINUE 

I  =  (  ♦•  l 

C  «fi I TE ( b . 2000  )  I 

pead(%,?,cnc  =  ioc}a(  i  >  *e  (  i  )  •  cc  i) 

■»IT£(6.2000)A(  I  )  .  c  (  I  >  .  C  (  I  ) 

IF  (  I  •  GT  •  3  )  GO  TO  1 
S20 ( I )=A ( I ) 

SR  20 (  I  )  =g (  I  )i.00 l 

C  »«l T£<6 •  1 000 )S20<  I)  • SR20 (  l  ) 

GO  TO  200 

t  continue 

IF ( I . GT . t JGC  TC  2 
J=  l- J 

C  *# I Tclo , 2000  )  J 

S1U0(  J)  = A(  I  ) 

5R1001 J  1  =R  (  I  )  $  «  C  0  1 

C  «PIT5(b»  lOOO)SlOG(J)  «SRlC0(J) 

GO  TC  200 
2  CONTINUE 

IF(  I  .GT .  10  JGC  TC  2 

J=  r-rj 

C  l  TE { 6 .2000  )  J 

SI  SO (  J I  = A <  I  ) 

sr iso ( j ) =e ( r  ) s. co  i 

C  I T6(b.  1000 )S150(  J )  .SB  1S0(J  ) 

GO  TG  2  0  C 
2  CONTINUE 

C  C,  LCCCmCCLCCCCLLLCC  €£,&!,  CL  CZ  CL  C 

IF  (  I  .GT  .  I  7  )GC  TC  -4 

J= [-10 

C  •  *  I  TE  ( t>  .  2000  )  J 

S200 (  J )  = a (  I  ) 

SR  20  0  (  J  )  =8  (  I  )  £.  CO  I 

C  ««ITE16.  1000)  52  00(3).  5 ft200(J) 

go  t a  »oo 

4  CONTINUE 

I F  <  I  . GT  • 2  A  JGC  TC  5 
J  —  I  —  l  7 

32 25 (  J )  =  A (  I  ) 

SR  2  2  5  (  J  )  =E  (  I  )*.  00  l 
C  »R ITE(0.2000)J 

C  l  TE ( b  .  1000  )  S2 25 (  J  )  .  SR225 ( J  ) 

GO  TG  200 

5  CONTINUE 

C  CLLLLLLCLLLLLLCL^L^LLLLLLLLLLLLLLLLLLCLLCL 

IF  1  I  .GT . 24  JGC  TC  5 
J=  l  -24 
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c 


S2S0  <  J  ) 


e 


c 

c 

7 

C 

c 

c 

e 


s 

c 


c 

c 

10 


c 

c 

!  1 

C 

c 

c 

I  2 
C 

C 


c 


100 


c 

c 


jpn  :  > 

Jjsrd  ;-.cci 
i  '£ (b  «  *OGO)S<;5Cl  j)  .5 
GO  TO  ^OC 
CON  T I NuE 

IP ( I .GT . «4 }GC  TC  7 
j=  l~  34 

52  75<  Jl  =  A<  I  ) 

S»275l J  )  =0 (  l  ) P - CC 1 

i  rg (g  .  2000  >  j 
««lTEIb.  1000)32  7* ( J  I  . S&  2  75  l  J  ) 

GQ  rc  200 
CONT  INUe 

CCCCCCCCCCCCCCCCCCLCCC  CC  CC  C 

l  F  (  I  •  GT  •  5  4  IGC  rc  a 

JS[-<*4 

•«IT6(6.2000  )  J 
S300<  J) =  a (  I  J 
5P300(  J  1=8(1  )«  -  CO  l 

I  T£  (6  »  l  000  )  S  J  0  C  (  j  )  ,5R300(JJ 
GO  TQ  2  0  C 
CONTINUE 

ip ( r • GT *61  I gc  rc  9 

J=s  1-54 

S325 ( J|  =a(  I  ) 

SPJ2S( J  1=8(1  IP  . CO  l 
«PIT£(6. 2000  )  J 

•PITPU,.  iOOQ  I  S3  25  (  j  1  .5^2  25(3  > 

GO  TC  2  0  C 
CONTINUE 

CCCCCCC  CCCC  CCCi,CCCCCCCCCCCCCCLCCLCLCCCCCCC 

IF( I .GT.C41GC  TC  10 

J=l-61 

»fl  IT£(6 • 2000  1  J 

53  50 ( JJ  =A(  n 

S« J5Q( J 1 =0( l  >P.  00  l 

*«ITE(6*  l 000 ) SJ50 (  J )  .SR3eO(JJ 

GO  TC  200 

CONT  INUE 

IF  (  I  .GT  ,fc7  )  GC  TC  ll 

J=  1-64 

S3 75 ( J)  =A|  I  ) 

SR  3  75 ( J|se(  r  IP. CO  I 
•«»iTeib.2ooo)j 

»«ITe(6.  I  COO  )  S3  75 ( j  )  *  SP  3  75 ( J  ) 

GO  TC  2  0  C 
CONT  INUE 

CCCCCCL CulLCCCCCCCCCCCCCCCCCCCcCCCCCCCC  CL  L 
IF  (  I  .GT  .  70  )  GC  rc  12 

J=I— 6? 

*RITE(6 .2000 ) J 
S400 ( J) =A( I ) 

SP40o<  j ) =8 ( r  ip. oo i 

«»!T£(e>,  I  0  0  0  )  Sa  G  0  (  j  J  .Sf=4CC(J  ) 

GO  TC  2  0 c 
CONTINUE 

cCCCCCi,  CCCLCLCCCCCCCCCC  CCCCCCCCCCCCCCLCtCC 
JSl- 70 

A»ITE<o.2000lJ 
S425 ( J)  SA  (  I  ) 

SP42s( j )=e( r  jp. cc  i 

*R  I  T  c { 6  •  I000)S425(J  )  .3fi4  2S( J  ) 

gq  ra  2  o  c 
cont inue 

CAUL  CQHCCI5 

CAUL  3L0  .85  I 

CAUL  SMQCTK 

Call  psmth 

CAUL  PAGE(  l  l  ..8.5  1 

CAUL  *  I  X ALF <  *  INS 7«U *  ) 

CALL  FUTLRA 
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nonnnonnonnn 


C 


C 

c 


c 


1  0  0  c 

200C 

2  00C 


HLL  '-’Oc-t'  {  »  3 


.  ;  ) 


call  r  3  v  <  .  .)*•  ) 
c  iLL  -*e  !  c  k  r  ;  .  2  j 

CAUL  ^^?CSTSA(N  =«r£  i<;H,5|-iv,iC0) 

CALL  VNAMHl**  -  LCMj  A  1  T  CM  1  .  i  0  0  ) 

CAUL  A*EA2C<  • .6.  ) 

CAUL  H£ACIM#  S*.lOC..5.2) 

CAUL  HtACINl  'OuCTILITY  VS  STRAIN  SATEt'  .J  CC 
CALL  *U3G  t  .000  *  .2  •  .0  .  .  4  25  .  ) 

CALL  Thk FQM (  . 02  ) 

CALL  FfiA^t 

CALL  CURVE { Sfi20.S20.PTS  1  •  -  I  ) 

CALL  CU«V5<SfilOO.SlOQ.PTS2.-l ) 

CALL  CUR VE (SR150 .S 150.PTS3.-  I  > 

CALL  CURVc(Sfi200.S20C.PTS4f-l ) 

CALL  CURvEtSP225.S225.PTS5.-  l) 

CAUL  CURVE (SP2S0 .S25C.P TS6.-  1  ) 

CAUL  CURVE t SC27S  .S27S  .PTS7 U 
CAUL  CUR V6 ( SP30C  .S30G.PTS9 M 
CAUL  CURVE ( SR325 .S32E .P TS9 .- I ) 

CALL  CUR VE t S C35 0 • 535 C * P T S I  0  •  -  I  ) 

CAUL  CURV£< SR375.S375.FTSl l.-i ) 

CALL  CURVE  ISRAOO .5^00. PTS12.  -  I  ) 

CALL  CUR VE ( SR42S • SA25 .P TSI J.  - l  ) 

CAUL  RESET (*  THKCPV •  ) 

CALL  RESET(  •HEIGHT*  ) 


.5.2) 


CALL  V(-SSAG(  'Tc^pefiAIUfiE  =  5  4  .  i  00 .4 -  S  .  J.  I 
CALL  I.NTNQ  (A25.  'A0UT  •  .  •  AELT*  ) 

CAUL  MfcSSAGl*  (  EH.J)  C ( £XHX )C  S*  •  100.  ' Aeu  T •  •  •ABUT*  ) 
CALL  ELREC ( 4  .3. 2.9.2 . 7  .. 4. .02  ) 


CAUL.  Mess  AG  <  •  AA_-  1  0  .2**G-0.52  XHM*  .IOC. 3. .5.5) 
CAUL  dLREC  (  2  .<3  .S.  4 .2.6  .  .4  ..  02  ) 

CALL  GR I  Cl  I  .  1  ) 

CALL  ENOPU(O) 

CAUL  DONEPL 

Pf)HMAT  (  l  X.F2G.5  «  1  X  •  F  2  0  • 12) 

FORMAT (  1  X  .  I  3  > 

FORMA  T(  l  A  .  JF  1  2  •  5  ) 

STQP 

END 
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oor>n 


’"-r 


:tscs: 

r  r 


!;5  =  r 


51=535 

T  R  U 


■  ---  >■  ;  1  *  =  :0C 

~z,jr  ANO  STRAIN  c  = 

AND  i  1 5  ,  AND  ~t-E\  =L  3T  3  ' 
:  STRAIN. 

,*<*-*»*  **3»:«* 


!  )  ,  A3(  10  1,31 (10) ,32(lC),d2(  10  ) 
], cl  (10) 

E3PAK (500) 


STRESS  AGAINST 

EXTERNAL  CLCE5 
SEAL  A1(10),A2(1C 
REAL  S1110), 52(10,53(10). cl  (10)  «c2(1CI»c3(1.j) 

SEAL  C  ,l  ,3,i  .CEO  ,TC  .*0 , L‘ ‘ ‘  - 

INTIGER  I , ?T  5  1 ,  r  1  52  ,?TS3 
1=0 

(,Rir3(t,;i 
10  CONTINUE 

1=1*1 

REAR!  Z1  ,-»,cN0*20  IA1  (I)  ,  aim 
si  ( 1 1  =ai  (i  i*  ( i  <en  n  i 

El ( I ) =4 ICG ( 3 1 (  1 1  + 1  I 

C  ACJUS  TWENT  -C R  INSTRGN  ANO  ELASTIC  STRAIN 

C  =  290  « 

C  =  .Ot  5 
5  =  SI  (  I  ) 

5=611  I  ) 

CALL  SLCPEfCrCic.S  *CHG) 

El (  I  )  =ChG 
C  ♦*»*=> 

WRITS  (  6  » l ) A1  (  I)  ,5X(  I),B1U  )  ,  Eli  I) 

GC  ”0  1C 
20  CONTINUE 

RTSl=I-l 

C  111111  11111111  Ill  111111111 

1=0 

WRITS |  4,3  ) 

30  CONTINUE 

i  =  i*i 

READ!  22  ,»,c.NC=40  )A2  (I)  ,82(  1 ) 

S2(I)=A2(I)  =  (1  <8  2(1)1 
52 (  I  I  =ALCG( 22  (  I)  +1  ) 

C  ADJUSTMENT  =CR  INS7RCN  ANO  ELASTIC  STRAIN 

C  =  38  7  a 
C  =  .13 
5=521  I  ) 

E=<=2 (  I  I 

CALL  SLCPEC  ,C  ,5  ,5,ChG) 

52(1) =  CK 

0  *r=wa 

WRITE (6,1)42(1)  , Sell), 32! I  I  ,22(1) 

CC  77  3 C 
40  CENT  IN L 5 

PTS  7  =  I-  1 

C  2222222222222222222222222: 

I=o 

w«IT-( 6,31 
5C  CONTINUE 

1  =  1*1 

REAOl  22  ,  »  .  c  N  C  =  6  2  )A2 (I)  ,83(1) 

22(I)=A2(II(!*32(I)I 

E2  (  I  )  =ALCG( 33 (  I  )  *!  I 

C  ACJUS  T  yE  NT  =cs  INST  R  C' J  ‘-NO  ELASTIC  STRAIN  =*»*'• 

0=363. 

C  =  .  1  5 
S  =  S3 (  I  ) 

E  =  c3 I  I  ) 

CALL  SLCRE(C,C,2,3, CHG ) 

E3 ( I ) =CHC 

C  »»=--= 

WRITE  (6  ,  1  )  43  (  I  I  ,53  (  I  ),  3  3  (I  1,23(1! 

CC  '1  8C 
60  CONTINUE 

RTS3=I-1 

C  7 * 7 233  3 7  7  7 33 7 7  77 7777 -2333  *33 7  ** 

CALL  CCTPPS 
CALL  7 G L Y 2 


I.NRU 

c 


84 


C  5 L L  SI  :  <*Lr  (  .  :  r  I 
CAL^  JAGS  (11.  ,2.5  1 
CALL  *  I  X  il  =  i  '  INSTFl;  '  I 
“4  XLl  N  =  L  INS  i  1  (  L  u  CP  *  H  ,5  '0  ,20  1 
CALL  L  INF"  ;  1  ?  .6X10  l  in.  =  >-4-i  1  .L-OPAK  ,  1  ) 

CALL  L  I  N  F  S  (  ■  5  .6.*  1C  (  =H.  3  )  —3  5  1  ,  lCG  "MK  ,  2  ) 

CALL  LINES!  '  5 . 6 X 1C ( EH. 5  I -2 S •  .LCGRAK  ,3  1 
CALL  NYLEGN (  1  ST°  t  IN  RATES  L/Sl',161 
CALL  F'JTLPA 

CALL  SHCCH9(SC.»1,.C02,1) 

CALL  YnxrRv («C2  I 
CALL  hEICH7(.2) 

CALL  XNANE! 'TRUE  STR  2  IN  J  •  ,  100  I 

CALL  YNANE!  '  T  RLE  STS  5  SS  (  (  )  MP  A  (  I  )  S  '  ,  1  00  ) 

CALL  ARE22D! E.C.6.C ) 

CALL  HE AC  IN (  •  i<  ,1C0, .5 ,2 ) 

CALL  HEACIN!  1  STRESS  VS  STRAINS', 100, 1.5, 2) 

CALL  GRAFIC.  ,  .  C  C2  ,.  C 1 ,0.  .  100  .  ,  1 50.  ) 

CALL  THKFRMUC2  ) 

CALL  FRAME 

♦  ♦  +  ♦•*+•  CURVES  >C  FERE  ♦  ♦♦+■»♦.♦♦+♦+++* 

CALL  CURVEISl  ,S1,ETS1,*1) 

CALL  CURVE(E2 . 52  ,RTS2,»1 ) 

CALL  CURVE<32  ,S2  ,RTS2,«-i  I 
CALL  RESET! ' TFKCRV ' I 
CALL  RESET!  •  FEIG1-T'  ) 

CALL  LEGC.NG  (  Lf  GR2K  ,3  ,5.4,3.  I 
CALL  3LR=C< 5.  1  ,i, 7  ,2.5  ,  1.5  ,.  C2) 

CALL  MESSAG!  •  T E F f  =  R ATU R E  =  £ '  ,  100 , 2  .  ,  2 .5  ) 

CALL  INTNO! 2C  ,  '  AELT  '  , 1 A8LT'  I 

CALL  hESSAG!'  (  sF.3  10!  EXI-X  )C  J',130,  '  ABUT*  ,  •  ABUT  '  I 
CALL  3LFEC ( 1 • E  .2. A, 2. 7, .4, .02) 

hMNliKNHM  H  MklHM 

CALL  MESS  AG  !  '  «L-1C.23,MG-C.5  2  3MN  £  '  ,  1  00 , 2  .  S  ,  3  .5  I 
CALL  BLFSC  !  2.3  ,2.4  ,2,  6  ,  ,4.,.  CC  ) 

CALL  MF  S  SAG  (  '  ENC  SATA  ’’CINTS  !  •  ,  130 , 1 . 2 .  .  3  I 

CALL  MESSAG!  '  INCICAT3  FRACTURES'  ,!0C, 1  ABUT'  ,'  ABUT'  ) 

CALL  ELRECll.l  ,.44,4.,o24,.02) 

CALL  GR  T  C  <  2 ,  2  I 
CALL  ENOfUOl 
CALL  DCNEPL 

FOR" AT!  lx,2F 12. S,  IX ,2=12.7) 

FORMAT! IX .4F12.5 ! 

FCRMAT!  IX  ,4r 12. 5 ) 

FCRMAT  (IX,  12  ) 

FCPMAT(i  x,/,-X  ,’"NG  STRESS'  ,2  X,' TRUE  STRESS'  ,  2X  ,  •  S'JG  STRAt'l',2X 
i  'TRUE  37 P  2  IN '  ,  /  ) 

STC? 

ENO 

SUBROUTINE  FCR  CCS  R  ECT  IN  G  I N  S1RC.N  ANO  ELASTIC  STRAIN 
SL3R0  UT I  3LCR:  (C  ,C  .3,3 ,CHG  ) 

REAL  C  ,C  ,3,  S  ,CFG  ,TC  ,T0 
TC  -C  *  ( 1 .  *0 ) 

TC  =  ALCG  (C*l.  I 
CH(S=E—  S  *  TO  /  T  C 

imchc.le.Oj  igc  *c  i: 

GC  T0  21 
CFG- 3. 

CONTINUE 


0 


_3_  vs  ;  •  j:  .  -  ='  oc-  = 

:C33'.x  ::v0l’3S  7-jE  i"ESS  5*1  c 

sNGt NESTING  STRESS  INC  :T3i!f  ,  AND  THEN  3LCTS 
3TR  2  3S  iG-.’-SI  1FL2  STRAIN. 

***=  *3  »» -» 

EXTERNAL  elope 

REAL  auniiJiUCI.43(13l.iJll!0l  ,3  2(10  ,821  I'M 
REAL  31  110  1  ,  32( 1C)  ,33(10  ),61 (10  > ,02  <10 ),E3( 10 ) 
REAL  C  ,C,c,  S  .OG  ,TC  .TO  ,  LEGPAK  (5001 
INTEGER  I ,  ?T  3  1 ,  rl  32  #?T  S  3 
1=0 

WRITE) 6, 5) 

CCNTI NUE 
1  =  1*1 

READ<  31  ,*,ENC  =  2C )A1 (I)  ,31(1) 

ski)  =ai  ci  i*  inei ( 1 1 ) 

El  ( I  ) =ALCG( 8 1 (  I  )  *i  ) 

ACJUSTMEM  FCF  INSTOQN  ANO  ELASTIC  strain  ***** 
C=350. 

C  =  ,l 

s=s: ( i ) 

E  =  E1 (  I  I 

CALL  SLCFEIC  ,C  , E.S.CHG) 

El  ( I  )  =0-0- 

***»» 

WR  ITEI6 , 1)A1  l  I  )  ,  31 (  I ) ,  31(1), FI(I) 

GO  TO  1C 
CCNTI NUE 
PTS 1=1-1 
1=0 

WRITE! 6,5) 

CONTINUE 

1=1*1 

R  E A0(  31 ,*,ENC=*C  )A  2 ( I )  , 32 ( 1 ) 

32  ( I  )  =  A i  ( I )  :M  1  <82  (  I  )  ) 

E2U  )  =AICG(  32  l  1)  +1  I 

ACJUSTWENT  FCF  INSTRCN  ANO  ELASTIC  STRAIN  ***>=* 
C=12A. 

0  =  ,0  3  2 
3  =  32 (  I  ) 

E  =  E2 1  I  I 

CALL  1LCFE1C  ,C, E.S.CHG) 

62(1) =CHG 

»»*-*-« 

WRIT" ( 6,2! A2  (  I  )  ,  32  (  I  I, 3  2  ( I  )  ,  E2t  I  ) 

GC  T0  3  C 
CONT INCE 
PTS2=I-1 
1=0 

WRITE! 6,5) 

CONTINUE 
1  =  1*1 

REAOI 30»*»SNC=6C  )A2 (I) ,83( I  ) 

33 ( I  I =A2 ( I )*- (  I  <8  2 (  I  )  I 
£2 (I  I  =AL0C(32 (  !  )  <1  I 

ACJUSIREM  P  C  P  INSTFON  ANO  ELASTIC  STRAIN  ****** 
C=A36, 

C  =  •  1 3 
3  =  S3 (  :  ) 

E=c3 (  I  ) 

CALL  SLC=E (C , C  ,E  ,3 , CFG  I 
=2(1) =CHG 

**■*=  < 

WRITE  (6  ,2  )  A3  (  I)  ,32  (  I  ).  33  ( I  )  ,  E2  (  i  ! 

GC  '0  5  C 
CONTINUE 
PTS3= l-l 

ww „ww  w  w  w wnW  CIMENSION  LEGPAK 

CALL  CCNPF3 
CALL  aCL>2 
CALL  3L2WLRI. £3) 

CALL  RAGE  (llo  ,  E. 3  ) 


lALL  •'  :  .X  £L=  <  '  3  T5L  1  » 

'-axl:  -.  =  l  :m-t  .3 

CALL  L  IN  53  (  •  !.c/  1C  (  5~.  5  I— *i  1  ,L  -Z?\K  .1  ! 

CALL  LINES!  ’  5.4xlC( O. 5 I -3  S  1  ,LEG?AK  ,2) 

CALL  LI  NES  (  ■  l.t  X  1C  (  EH.  5  I  -2  J  •  .LSGPAK 
CALL  '•V  L  EGN  (  1  STS  A  IN  RATES  l/SJ'.L&l 
CALL  FUTLPA 

CALL  SFCCFR ( EC.  ,1,.C02 ,1  I 
CALL  THKCRV(.CZ) 

CALL  HEIGHT (.2) 

CALL  X  N AM  F ( 1 T  P  L  c  STP A IN t • , 100 ) 

CALL  YNAMFl'TPLE  STP  ES3 (  (  1MPA  i  )  IS'ilQO! 

CALL  AREAZDl S.C.6.C) 

CALL  HE AC  IN (  '  J*. ICO,. 5, 2  1 

CALL  HEAC  IN( ' 'TRESS  \S  STRAIN1  •  ,130 , 1.5,2 ) 

CALL  GRAF (3. , .CS, .2, C., 13C.  ,6CC.  1 
CALL  THKFRM ( .C3  I 
CALL  FPAME 

CALL  CUR  V  6(51 ,S1»FTS1,<-1  I 
CALL  CURVE  (!52  » S2  » FT  S2  1 
CALL  CUSVFIGG  ,S2,FTS2,<-1 ) 

CALL  RF S E"!-  (  •  T  FK  C  r  V  1  I 
CALL  RE  SET  (  *  t- €  I G HT  •  I 
CALL  LEGENO ( LEGFAK ,2 ,5. A, 3. I 
CALL  BLPEC 15.1  ,2.7 ,2.5 ,1.5,  .CZ) 

fcb,  W  *  V  F  I*  .  k  F  . 

CALL  M£SSAG(  'TEUF;?ATUPE  =  i  •  ,  100 , 2 . , 2 . 5  ) 

CALL  INTNOI ICC  ,  '  AetT' ,  • AFUT'  I 

CALL  MESSAGI'  (  36. 2  1 01 2 XFX )C  I  '  ,  130 ,  , AB LT >  ,  • AS UT •  I 
CALL  3LF?C(1.E,2.4,2.7,.‘*,.32I 

CALL  XESSIGI  'AL-IO.ZiMG-O.  52*f-Nt*  , ICC, 2. 5, 3.  51 
CALL  6  L  P 2  (  2  « , 2 .4  ,2.  6  ,  « C2  1 

LV.k.WMFPMHWPPVPPUFFk 

CALL  HE  SSAG (  '  ENC  CATS  POINTS  CO  NOT  S *  , 1 CO , 1. 2 , . 5  I 
CALL  MESSAGI  '  INCICAT2  FR  iCTU F E 5 •  , 100 , ' ABUT ' , 1  ABUT >  I 
CALL  3LPECI I.  1  ,.*4, 3. ,.24, .02) 

WHhwWFF".  UwrtWFW. 

CALL  3RIC  (2,2  I 
CALL  .5NCPL(0  I 
CALL  OCNFFL 

FCPM j T (  1X.2F12.5  ,lx,2F12.7) 

FCPHATt lX.AF’  2.3  I 
FORMA “I  1 >  »4r 1 2 .3  ) 

FORMAT (  IX,  I  2  ) 

FCRM47I1X,/,HX  ,•  ;.\G  STRESS'  ,2*, 'TRUE  STP=  SS  •  ,  2X  ,  •  ENG 
,TRUF  STP  AIN  1  ,  /  I 
STOP 
END 

SU3PG  LT I NE  =CP  CCP 3  eCT IMG  INSTPCN  ANC  ELASTIC  STRA! 
SLdRO'JTINE  jLCP6(C,C,2,3,CHG) 

PFAL  C  ,C  ,",  3  ,  C  F  C  ,  T  C  ,70 

TC=C-M  1.  *01 

TOALC3  (C  +  l.  I 

CHG=E— SPIO/TC 

I F  (  CH  G,  LE.  ).  I GC  Tr  u 

GC  TO  21 

CFG=0 • 

CONTINUE 
FETUPN 
ENO 


iNC  ELASTIC  STRAIN 


THIS  3RC"i>  'CNf  U  :"3  'ZZ  IK-  ;,T'ir:  = 

ENGINEER!  iu  '-RES'  A.iO  AND  PLOTS 

STRESS  1GMNS1  TRUE  STRAIN. 

t»itaaiaaaKtyn-:nxaiiaitxa*>aaes 

EXTH’NAt  SLOPE 

REAL  41  (  l".  >  ,  PE  (1C)  ,A3(  10  I ,  si  (  10  )  ,62  (1C  I  ,33!  1  0  I 
real  si(ij),s:ac).33(ni.cii:3),c2(i:>. =21 io  i 

REAL  A4 ( 10) , 34 (1C  I  ,S4l  10  1,34  <10  I ,L=G?AK<  ECO  I 
REAL  C  ,C  ,3,  3  ,0-0  ,TC  .TO 
INTEGER  I.PTS1.FIS2  ,?TS3  ,?T34 
1=0 

»RITE! 6 , E  ) 

CONTINUE 
I  =  I*l 

READ!  80  ,<  ,SNC  =  20  )A  1  (II  ,31(1! 

Sl( I »  «A1 1  I  )» (  1  <ei ( I ) » 

El ( I >  =ALCGl 31  (  I  »  * t  » 

ACJUST«ENT  FOR  INSTRON  AND  ELASTIC  STRAIN  ■»*«** 
C=213. 

C  =  •  1 3 
S=S1 (  I  l 
E  =  E1 (  I  ) 

CALL  SLCFS1C  ,  C  iE  ,S  ,CHG! 

El(I) =C  FG 

AWW*: 

WRIT'  (  S  ,1  )A1  (  I!  ,S1(  I),  31  (I  1  ,  Ell  I  I 

gc  "n  ic 
CONTINUE 
PTS1= 1-1 
1=0 

WRITE! 4,  S) 

CONTINUE 
1  =  1*1 

R  SAO  < 4T,*,3NC  =  40)A2(I) ,8211) 

S2(  I  )  =A2  (I  )  «  (  1  <e2  !  I  I  ) 

E2  ( I  )  =ALCG(  32  (  1  Ml  ) 

AC  JUS  T«ENT  =0P  I  N  S  T  F  ON  AMO  ELASTIC  STRAIN 
C=255. 

C  =  .  1 
S=S2(  I) 

E  =  E2(  I  ) 

CALL  SLCFE!  C  ,C  ,.E  ,3  ,CHG  I 
E2  ( I  I  =C)-G 

WRITE ( 6,2>A2(I>  ,S2( 1 1.32(1  I ,S2( 1 1 

CC  T0  ?c 

CONTINLE 
PTS2= [-1 
1=0 

WRITS) 6,1] 

CCNTINUE 
I  =  I  *1 

REAO! 46,*,cN0  =  4C  )A3 (I)  .83! I ) 

S3  (I  I  =A3  (  D*  (  1  -*63  (  I  I) 

S3  (  I)  =ALC3<  33  (  I  Ml  I 

ACJUSTMENT  FOP  I N  ST  PON  ANO  ELASTIC  STRAIN  =**■== 
C  =23  0  . 

C  =  .  I 

S  =  S3 (  I  ) 

E  =  E3  (  I  ) 

CALL  SLCFE! C  ,C  ,E  ,S,CHG ) 

E3 ( I  I =CFG 

WRITE (6 ,2  )A3 (  I )  ,S2( I ), 3  3 (I  I  , ESI  I  I 
CC  r0  5C 
CONTINUE 
FT  S3  =  I  —  1 
1=0 

WRITE!  6,  S  I 
CCNTINUE 
1  =  1*1 

R  6  *0 (  32  »=.“NC=3r  (  A  4 ( I ]  ,3  4(1  ) 

<4!  n  =A4 ( I )  < (  1  <R4(  !  I  ) 

34 ( I ) =AICG( 3  4  (  I  I  ♦!  I 

ACJUSTNENT  FOP  lASTFC.N  ANO  ELASTIC  STRAIN  *»*-■•= 
C=334. 

C  =  ,  1 
S  =  S4(  I  ) 

E  =F4(  I  i 

CALL  SLCPEIC  ,C  iE,S,CHG) 

E4 (II =ChC 

•Uxl 

Wfl  ITE  (  6 , 2)  A4(  II,S4(Il,i34(Il  ,  f4(  n 

GC  T1  7 C 
CONTINUE 
PTS4-.  t-1 

twWwHMWWhWW  0 1  ME  NS  ION  LEGPAK 


3  LAST IC  STRAIN  '  = 


CALL  CjMFPS 
CALL  P  CL  Y  3 
CALL  9LC’*LP(.35I 
CALL  PAGE  HI.  ,  f .  5  ) 

CALL  -*1  X  ALF  (  •  IN  STRL  *  ) 

MAXLI  N  =  l  !'I=$T  (L2GP1K  ,5  TO  ,20  ) 

CALL  LINES! ’  5.6X101  EH.  5 1-4* ■  .LEGP4K  ,1 > 

CALL  LINES l  1  5.6X101  =H.  5  > -3  S  '  ,lcG?AK  ,2) 

CALL  LI  NFS (  ' 5.4 X  1C l EH. 5I-2S  •  ,L£G?AK  ,3  ) 

CALL  LINES ( 1  1.4X10 ( IH»  5 I— II*  .LEGP4K ,  4  ) 

CALL  '*  Y  L  EGN  (  'STRAIN  RATES  I/Sl',161 
CALL  FUTLRA 

CALL  SHCChR(qC..l,.:,12.i  I 
CALL  THK  CD  V (  .  C2  > 

CALL  HEIGHT!. 2) 

CALL  XNAMt('TFLS  STRAINS'  , LOO  1 

CALL  YNAMEI'TRLE  STRESS (  t  IMP  A ( )l  S ' .  1 00 ) 

CALL  ABEA2C!S.C,6.0  I 
CALL  M  E  A  C I N  (  •  i  •  ,100, .5 ,2  I 
CALL  HEAC  INI  • STRESS  \S  ST»a I N  1  1  ,  10O ,  1. f  , 2  ) 

CALL  G»AF  (0. , ,C5  ,.3  ,C..10C. ,oCC. ) 

CALL  THK  F0M ( . C2 ) 

CALL  FRAME 

CALL  CURVE (El  ,S1  ,  FT  S’ ,  *1  ) 

CALL  CURVE1E2  ,32  ,FTS2.*1 ) 

CALL  CURVEIE3 ,52 >FT$2»*1 1 
CALL  CUR VE ( E4  ,  FT  S4  »«-l  ) 

CALL  R  E  S  ET  (  •  TFK  C  F  V  •  ) 

CALL  REE  ET ( 1  RE  ICRT •  1 

CALL  LcGCNO ( LECFAK ,4,5.3 .4. 5 ) 

CALL  RL®EC( 5.  ,4. 3 ,2.5,1. 5..C2 ) 

CALL  HE 3$AG(  'TEMPERATURE  =  J  1  ,1 00 , 2 . , 2 . 5 ) 

CALL  INTNCC 15C,  1  46UT  ■ ,  • ASUT 1  ! 

CALL  M5SSASC  (  r  H  .  3  IC(  :XFX  )  CJ  •  ,100,  •  ABUT1  ,  ■  ABUT  '  ) 

CALL  3L  FEC  M.  .  6  ,i.o4,..  7,.4,.0i) 

VwWwWi,!..1. 

CALL  ME  3  3 40  (  •  AL—  10 • 25MS— 0.  52  S '  ,  1  00 , 1  .  7 , 5  .3  ) 

CALL  9LRzC(i.5,5.2  ,2. 6 , .4 , . C2 ) 

W„mWWWW4*,,„W4  4  .  w  .  .  rt 

CALL  xSSSAGl’ENC  Oil'.  POINTS  CC  NOT  !  '  ,  10  0 , 1.  2  ,  ,  5  I 
CALL  ME33AGI  1  INC  ICAT-  F=  ACTL? E  i  •  ,  13 0  ,  '  ABU T '  ,  '  4<jU T '  I 
CALL  2LFEC (1.  1  ,«44, 4.0 , .24,  ,C2 I 

CALL  GRTC (2, 2  I 
CALL  EN'OFMOI 
CALL  JfEFL 

FCPMAT (  lx,2e12.5 ,1X .2F12.7  I 
FORMAT! 1X.4F12.5 I 
FORMAT ( IX.4F1 2.5  I 

FCPMAT (lx, 12 1 

FORMAT  (lx,  /  ,4)  , '  ENG  3TF.E33'  ,2X  ,'TRJE  STRESS '  ,  2X ,  '  ENG  STRAIN', 
a1  TRUE  strain-  ,/l 
STOP 
END 

3U3ROUT  INE  FCP  CCP.RICTtNC  I.N3TRCN'  ANC  ELASTIC  STRAIN 
SUBROUTINE  SLCFC  (C,C,",3,CHC I 
PE  AL  C  ,  C  , 2  >  3  » C F G  , T C  ,  TO 
TC=C'!(1.«0) 

TC=ALCG (C>lo ) 

CFG=  S*  TO  /  T  C 
IFICHG.LE.O.  ) GC  ’0  11 
GO  TC  21 
C  FG-=s  • 

CCNT I MUE 

RETURN 

END 


c 

c 

c 

r 

C 


1C 

c 


c 

20 

C 


30 


C 


c 

40 

C 

50 

c 


c 


40 


c 

70 

C 


c 


TP'Jf  STRESS  LS  ’FL3  ST’ A  IN  3'  •  =  200 
THIS  PFrSPA-  CO^L'ES  *:'J:  ."’33:  ANC  3  ~~  %  I : 
ENGINEERING  $  T  R  ESS  '>.’10  ’TP.  4  1.'*  4. 'JO  "PEN  PLOTS 
STRESS  AGAINST  ISLE  ST’  AIN. 

, -VE.-S  *  **  v  .  <**  >  4  W  1  =  ■«  wrt-liltiaoMa-i**!*-**,** 

EXTERNAL  SL3FE 

REAL  U  ( 10)  ,  A2  ( 1C)  ,A3t  10  ),  A4  CD  )  ,A5  (10  ).  A6(  10  ) 
SEAL  A7(1C) , Af ( 1C) , A9( 10  I, A1C (111 
SEAL  31  11CI  *  E  2 ( 2  C ) , 30 (  10  )  *  3  4  < 1C ) ,  3  5  (  1C  )  ,  36(  10) 
real  37(10), amc),a<5(i3),3ic(io) 

REAL  51 (10  I .  S2( 1C )  ,  S3( 10 ) , 34 (1C)  ,S5 (101,36(10) 
REAL  S 7  110)  ,Se(lC),39ll0),31C(10) 

REAL  El ( 10)  ,E2( 1C)  ,E3( 10  I ,E4  <101  ,05 ( 10  )  ,  Eo ( 10  ) 
REAL  E7<  10)  ,££  (1C)  ,E9( lOl.clCllO) 

REAL  C,C»c»S»ChG,TC»TO, LEGPAK (5001 
INTEGER  T,PTS1  ,?1S2  .P-’SS  ,?TS4  ,?TS5  ,  PTS6 
INTEGER  PTS7 , FTS2,P1S9,PTS1Q 
1=0 

WRITE!  6,5) 

CONTINUE 
I  =  t  +  l 

REA0(74,*.2NC=20  )A  1  1 1 ) ,31(1) 

SHI  1=41  (II-  (  1 131!  I  )l 
El ( D  =ALCGI fll (  I)  +  l ) 

ACJUSTMENT  PGP  INSTPON  ANO  ELASTIC  STRAIN 
C=45.1 
C=«0 3  2 
S  =  S1  (  I  ) 

E=E1  (  I  ) 

CALL  SLCFE1C ,C  ,E,S,CHG) 

El(  I  )  =CPG 

»<«»« 

WRITE (6,1141 ( I) ,S1( I),  31 (1  )  ,E1(  D 
GC  TO  1C 
CONTINUE 
FTS 1=1—1 

linn  ilium  mm  i 
1=0 

WRITE! 6,5) 

CONTINUE 
I  =  I  -f  1 

RFAOt  7’  ,*  ,ENC=4C  )A?  (I)  ,  3  2(  I  ) 

$2(1)  =42.  (  I  I"  (  I  <52(  I  I  I 

E2  (  T  )  =ALCC  (  32  (  I  Hi  ) 

AC  JUG  TV  ENT  PCS  3NSTFCN  ANO  E  LASr  I C  ST 
C=10E. 

C  =  •  1  5 
S  =  S2(  I  ) 

E  =  E2 (  I  ) 

CALL  SLCF’IC  ,C  CHG ) 

E2< I  I =CK 

WRITE (6 .2) A2 ( I)  ,S2( [1,32(1  )  ,E2(I) 

GC  TO  3  C 
CONTINUE 
PTS2  = 1-1 

2222222222202222:2’-’ 

1=0 

»R  IT" (  6,5) 

CONTINUE 
I  =  (*l 

REArM  45  ,=> 

S3 (  1 1  =  a  5 ( 


'Rue 


[  N  -xsi*  i 


ANO  ELASTIC  ST’AIN 


23(1) 


EMC  =6C  IA3  (I  )  ,  33(  I  1 
I  -•  ( 1 1 3  3  (  I  )  ) 

E3 ( I) =alCC( 3  3  !  I  I  M  I 

AC JUS  TVE  NT  =CF  t.NSTRCN 
C=10i. 

C=.l 
S=S3(  I  ) 

E=E3(  I  ) 

CALL  SLCFE(C,C  ,  E  ,3  »■  CHG  ! 

E3( I ) =CPC 

«R  it: ( 6  ,3  JA3  (  I)  ,£3 (  !  ) ,  13(1) 

CC  T0  -r 
C  C  N  T  I  N  U  ? 

FT  S3  =  I-  I 

_H0 . 

WRITE! 6 , 5  ) 

CCNTINLE 
1  =  [1-1 

reao(  44  ,*,cNc=ec  ia4  in  ,  a-i { i ) 

S 4  (  I  I  =A4  (  I  )  >  (  1  iP4(  I  )  | 

E4(I)=ALCG(E4  (  I  )  •*  1  | 

AC JUS  TMENT  PCP  INSTFCN  ANO  3LASTIC  ST’AIN  «*» *» 
C= 11 3« 

C=.  L 
s=S4( r  i 
E*E4(  I  ) 

CALL  SLCFE(C,C,£,3,CHGI 
E4( I ) =CHG 

•»>»« 


PUT 


=  I  L 


90 


30 

C 


■*t»  iTs  1 6 ,  i )  A4 1  r ) ,  -4(  1 1 ,  3^  i  r  t  ,  1 1 

GC  ”  ’C 
cent:  nue 

FT34=  !  -  1 

44  4  444^,444444  4  44444444444  444 
1=0 

WRITS (6,5) 

CCNTI NUE 
1  =  1  +  1 

READ!  43  ,*.5*'C  =  irC)AS  II  )  ,  as  (  I  I 

S5(I)=A5(I)~(I*E;(I)I 

?5(I >  =ALCG( 35  t  I  )  +  l J 

AC  JUS  THEM  FCP  INSTFC’I  ANO  ELASTIC  STRAIN  «**-»* 
C=166. 

C  =  .l 
S  =  S  5 (  1 1 
e=E5(  1 1 

CALL  SLCFEIC ,C  ,£,S,CHGI 
EE  1 1  )  *ChC- 

WRITS (6 ,2) A 5 (  I  )  ,S5! I ) , 8  5 (I )  , Ef ! ! I 
GC  T0  RC 
CONTINUE 
PTS5= I- 1 

555555555 5 55 55555555 5555555 55 
1=0 

WRITS ( 6,5) 

CCNTINUE 
1=1  +  1 

REACH  42  ,*  ,ENC=3CC  )A6tI  >  ,  EM  I  ) 

S6( I  I =46 (I ) * ( ! <86 ( I )) 

E6  II) =AICG( 96  I  ]  ) (!) 

AC JUS  TM  £  NT  FCP  INSTPC.I  A.\0  ELASTIC  STRAIN 
C=202. 

C  =  .J3 
S  =  S6(  I  ) 

E  =  F6<  I  ) 

CALL  SLCFEIC, C,c,S, CFG) 

E6<  I) =CFG 

WRITE  (6  ,2>A6(  I )  ,36!  I  ),  66  II  )  ,  26!  T  I 

GC  +0  2  C  C 

CCNTINUE 

PTS6=I-i 

6t£666c6t66466fAAA66A66666666£666666 

1=0 

WRITS (6,5) 

CCNTINUE 
I  =  [  +  L 

REAO(33,*»cNC=5CCIA7(I)  ,27(1  1 
S7( I) =A7 ( I )» I  I 7 ( T ) I 
67(I)=4LCG(B7(I)+1) 

A  C  J  U  G  T  v  E  N  r  "CP  INSTFCJ  AM  SLAS'IS  STRAIN  *•- 
C=257, 

C  =  »  i  5 
S  =  S7(  I) 

E  =  E7  (  I  1 

CALL  SLCF=(C  ,C  ,  =  ,3,CFG! 

=  7(11 =C  EC 

WRITE  (6  ,I)A7  (  I)  ,S7t  I) ,  37  (I  )  ,  E7(  I  I 

GC  T0  4CC 

CCNTINUE 

PTS7=[-l 

777  77777  7  7777  7  777  7  77  777777777  7777-7+7  77 
C  IMENS  ICN  LECRAX 
CALL  CCMPRS 
CALL  SNOCTH 
CALL  PCLY2 
CALL  3LCWLP !  »  8  5  > 

CALL  PAGE (1 1 • ,6.5) 

CALL  “IXALP!  1  INS7PL  ’  ) 

YAXLI N=L  INS  ST  (L  E  CP  A  K  ,3  70  ,20  I 

CALL  LI NESI  ’  1.4X  1C ( Fh„  5 )—.  s ■  ,  LEG  PAX  ,  1  ) 

CALL  LINES!  1  5 .6  xl  C  (  rH.  5  1  —  S  1  ,l=G?AK  ,2  I 
CALL  L  I  MS  S  (  1  .  4  X  1 0  (  =H.  5  1-3  i  ’  ,  LEG  PAX  ,  3  ) 

CALL  LINES!  '  5  •  6  >  1 0  (  EH.  5  I  —  3 1  '  ,  LEG? AX  ,4  I 
CALL  L  I  NEr ('  1 .4XIC ( PH. 5 1-2$ '  ,LSG?AK  ,  5  ) 

CALL  LINES!  •  5. 6X  1C  f  EH.  5  1-7  S  •  ,LEGF  \X  .6 ) 

CALL  LINES!  »  1  .4X10 ( CH. 5 1-1 S  >  ,LHG?AK  ,7) 

CALL  +YLSGM! • STRAIN  RATES  1/SI’, 16) 

CALL  PL  T LD  A 

CALL  EPCCFR ! <5 C  .  ,  I , . C 02 , 1 ) 

CALL  thkC  =  V ( «  C2  ) 

CALL  HE IGHTI  , 2  ) 

CALL  XNAME! • T  =  LS  STR A  INI ' , 100  I 

CALL  YNAWEI'TCUH  STRESS (  (  IHPA  ( I  It* ,100  ) 

CALL  A  R  F  A  20 ( 3 „ C , 6.0 ) 

CALL  HEACIM  (  '  i  •  ,  ICO,  „  5  ,2  ) 

CALL  HSAC  IN! • STR-SS  \S  STR  M  N  5  ■  ,  LOO  ,  1 .5  ,2  ) 


TV 


G 


1 

2 
3 

C4 

5 


11 

21 


CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 


RAF  n. . 
THK  c= m ( 
FR  arc 
•J  B  V  F  (  C  1 
CURVE  1  -2 
C'JOVcC? 
CURVE! ;A 

cubveise 

CURVE! EE 
CURVE  13 
R  3  SET ( 


>  2  . , 4 ,5  ) 


,  ’  ABUT  '  I 


i  RTS  1  ,  «■  1  ) 

>E2  ,RT 32,-1  ) 

,  E2  ,  r'T  S3.-1 > 

,RTS4,+1 1 
S  5  ,  F  7  S  E  ,  *  ’  ) 

p£e.pT«*,«.i  i 
,27  ,;ts?,  +  i I 
1  ThKC" V 1  ) 

■.ALL  RE  SET!  •  PE  I31-T  1  I 
CALL  LEGEND!  LEGFA*  ,7,3.5 ,3.) 

CALL  3LRRC  I  5.  2  .2,  7  ,2.  5.  2.5,.  C2  I 

toRMWn 

call  'IB  5  SAC  (  1  TE  w  F  EF  a  TU  R  ?  =  S', 107, 

CALL  INTNO! 2CC,  'ABLT',  '48UT'  I 
CALL  MESEAG!'  (  5I-.2  I0(  "XFX  )  C  i  •  ,  ln0  ,  •  ABUT  ' 

CALL  3LFEC!  I.f  , A. 4, 2.7  ,.-,,.02! 

«m  nm  ¥  V  *  t»  to  W  M  w 

CALL  4ESSAG  l  ’  :MG— )«52?>NS#  »  LCOt  2o5 .5.5  ) 

CALL  3L°EC!  2,  2  ,  5.4 ,0..i  ,.4,.  C2  I 

ppWWWPV  W  W  I*  k»Fi»L»Ww*, 

call  ^sslgi 'gpo  cata  points  :c  not  «■  ,100.1.0, .1 ) 

CALL  MESSAG!  •  INCICATc  PR  AC ’UP  2 S ’  , 100  ,  ' ABUT '  , 1 43UT'  ! 

CALL  8LPPC(l.l,oCE,'<«>,.i4,.>.i! 

CALL  GRTCM, ’ I 
CALL  G  NO  P l ! 7 ) 

CALL  7CNEFL 
FCRM4T!  1X.4P12.E) 

F<~RM  A  T  {  lX,tF12.S  ) 

FORMAT! 1  X  ,-,F  1 2 .5 ) 

FORMAT! IX, I  • | 

FCRM4T  (IX  ,/  .  4  X  ,'r:NG  CT’  E  S  S’  ,  2  X  , '  TRUE  CORE  S  S  ’  ,  2X  ,  •  ENG  STRAIN', 2X, 
i  '  TPIJ"  STRAIN'  ,  /  I 
STOP 
ENO 

SL8R  JUTINc  SLCF' (C  ,C ,* ,S ,CHC ) 

SEAL  C,C,c,3,0-G,TC,T7 
TC=C- I  1 .+0) 

TC  =  4LCG(I>1.  ) 

CPG=c—  S*TQ/TC 
IFICHC-.LE.O.  ICC  TC  11 
GC  TO  21 
CH3»0. 

CONTINUE 

RETURN 

EM3 


•» 


92 


iilwiii  A 


E  LAST IC  STRAIN  «**•« 


THIS  ==CGRav  CORLISS  *':J2  S7RE3S  i-:c  ST=  .*.!•;  " 
ENGI  '-<75  =  I  'in  STRESS  ',‘10  ;T=i^,  YND  ~EEN  ?U2T> 
STRESS  AGAINST  TELE  S’"AIN. 

EXTERNAL  SLOPE 

REAL  Um  »  A  Z  <  IC  I  ,A3l  10  1,  A  A  (  !C)  ,A5  ( 1C  1  ,A6l  10) 
SEAL  A7  ( 13)  , A8( 1C ) , ATI  10  ), AlC (1 0 ) 

SEAL  51(101,  32(10, 23  (10),  34(10),  85(1  0  )  1 8  -6  (  10) 
REAL  67 ( 131  ,E?(1C),E9( 10  ) ,  3 1 C ( 10  ) 

REAL  31 (  10)  ,  £2( 1C)  ,S2( 13  I ,S4 ( 10  I ,35 (1C ) ,36(131 
REAL  S7(13),S6(1C), £3(10), 310(10) 

REAL  El  (10  I  ,  S  2  ( 1 C  )  ,  E3(  10  ),E4  ( 10  )  ,35  (10  )  ,co(  10) 
REAL  E?( 101 fE£ (1C) ,E9(  10 ) ,clC (10) 

REAL  C  ,C  ,5,3  ,CEG  ,TC  , TO, LEG? A K (500) 

INTEGER  I  ,?TS  1  ,PTS2  ,?TS3 ,?TS4  ,?TS5, ?TS6 
INTEGER  F+S7,FTSS,PT59,PTS10 
1=0 

wRIT5( 6,5) 

CONTINUE 
1  =  1  +  1 

REA0(77,R,£NC=<C)A1 (I) ,31(11 
Silt) =A1(I)=(1 <8 1(1)1 
El (I  I =ALCG( 81  ( I)  +  l  ) 

acjustnent  fcp  instfgn  and  elastic  strain  ***•« 

C  =  39.  1 
C  =  .l 
S=S 1 (  I  I 
6=61 (  I  ) 

CALL  SLCFE(C  , C  ,c  ,S  ,CHG) 

El  (  I )  =0-0 

***** 

WRITE (6»1)A1(I)  ,  £  1  (  11,31(1)  ,  E 1  ( I ) 

GC  TO  1C 
CONTINUE 
PTS  1=  1-1 

111111111111111111111 

1=0 

WRITE! 6,5) 

CONTINUE 
I  =  t  + 1 

REAO(  7J>  ,*  ,cNC=40  )A2  (I  I  ,  82 (  I  ) 

$2(i)=A2(n*n<?2<in 

E2 ( I ) =ALOG! 32  (  !>  *1  ) 

ACJUSTHENT  POP  INSTFCN  ANO  3LA$T!C  STRAIN  P=>;+* 

C  =  61. 

C  =•  1 
S  =  S2(  I ) 

E=E2(  I  ) 

CALL  SLCFEtC  ,C  ,c,$,CEOI 
52 ( I ) =C  E  C 

***** 

WRITE  (  6  ,2)  A2  (  I  )  ,S2  (  I  ),  32  (I  )  ,  £2(  I  ) 

GC  TO  3  C 
CONTINUE 

,PTS2= I-l . 

222222222£i222IIi222i 

I=o 

wRITSl 6, 5  ) 

CONTINUE 
1  =  1+1 

READ l 79  ,* ,ENC=6C )A 3 ( I)  ,33(1  ) 

S3  (  I  I  *A3  (  I  )  ■*  (  1  <8  2  I  I  )  ) 

E2 (I  )  =AlCG(  32 ( I  I +1  I 

AOJUSTHENt  FCP  INSTRQN  ANO  ELASTIC  STRAIN  **+-* 
C=62. 7 
C  =  .l 
S=S  3 (  I  ) 

E*E3 (  I) 

CALL  SLCFE(C  ,C  ,E ,S,CHG) 

E3(  1 1 =C  EC 

***** 

^II“(^-)A-(I>'-?l‘>-33(I),E3i:i 

CCNTI NUE 
0TR2=  r_  i 

■’IT-' 

1=0  . . . 

WRITE! 6, 5  ) 

CCNTI NUE 
1  =  1  +  1 

REAO(  50,*.cNC=?C  IA4  (I)  ,34(1  | 

S4(I  I  =A4( I)* (  I  «E4(  I  )  ) 

E4( I) =ALCG( 34  (  I  I  *1  1 

ACJUSTNENT  EC  P  INST?  ON  ANO  ELASTIC  STRAIN  =»+*.■* 

C  =34.  1 

0.15 

S=S4 ( I) 

E=c4(  I  ) 

CALL  SLCFE!C.C,E,S,CHGI 
E4 ( I  I *CEG 

***** 


R  IT  ;  (  3 , 1  !  A  A  (  !)  ,  £4  (  11.34(1)  t  ;£(  :  ) 

SC  '0  Tf" 

CONTINUE 

FTS4-= ! -  I 

1=0**'^'’ 

WRITE  i  A  ,  5  I 

continue 

I  =  1*1 

RcAO(4P,*,cNC=l3C)A5(I  I  ,  E5  (  I  ) 

S  5  1 1 ) =a  5 ( I )  ‘  (  I  • 5 (  I  I  ) 

55 !  I  )  =4LC3( ?5  (  I)  +L  ) 

ADJUSTMENT  FCF  INS7FCN  AND  ELASTIC  S”4IN 
C=U1. 

D=.  1 
S  =  S5 I  I  I 
E  =  E5I  I  I 

CALL  SLCFStC  ,C  ,2  ,3,CHG I 
=5(1) =ChG 

*  =»*~ 

WR!TE(6,2)A5(  I)  ,£5(11,35(1  I, £5(1) 

GC  TC  30 
CONTINUE 
PTS5  = I-i 

EGee;j;:eieeceetitccce^;ccc:c 

*  f  =0  . . . . 

WflIT:( i. 5  ) 

CONTINUE 
1  =  1*1 

READ!  43  ,•»  ,=MC  =  3CC  M*(  I  )  ,  36 (  I  ) 

Sfc(I>=AMI)-MI'E£(!n 

Si  ( I  )  =ALC3( 3  £  (  !  )  ♦  (  ; 

AC  JUS  7  mc  K  T  FOR  INSTSCN  AND  ElAS'IC  STRAIN 
0*203. 

O.J.5 
S  =  S6(  I  ) 
c  =E3  (  I  ) 

CALL  3 l C FS ( C  ,  0 , z  , £ »CHG  I 
E;  (  I )  =C  FC 

»S!T" (ft,  2  I Ai  (  I  )  ,  Sill), d6( I )  ,  ci  ( I ) 

GO  TT  2CC 
CONTINUE 
PTSA  =  I-  1 

46A666i6tiidfc6iiiiiLA666oA6A6iiifcoo6 
1  =  0 

WH  ITT  l  6 , 3  I 
CONTINUE 
1  =  1*1 

REAO( 34  ,*,ENC=50C 1A 7  (I  I  ,  e7(  I  1 
£7(  I  I  =47(  I  )* ( 1 -?7( I  I ) 

E7 (I ) =ALCG( 37  (  I) *1  ) 

A0JU3'”ENT  =CF  I A  $  T  -  CN  A  NO  ELASTIC  S”AIN 
C-Z  22° 

L  s  *  i 

S  =  S7(  I  I 
c  =  E7(  I  ) 

CALL  SLC? 5(0, 0,5,2, OHS) 

57(1) =  CI-C 
**=:::  = 

«RITS(6,1)A7(  I),£7(  11,37(1  I  ,  c  7  (  I  ) 

GC  TO  -CC 
CONTINUE 
PTS7  = I-I 

777777  77777777  7  7  77  77  777  7  7  77777  7  77777  77 
DIMENSION  LEGPAK 
CALL  C CM  F  FS 
CALL  3MCCTH 
CALL  3QLY3 
CALL  3LCV.LP(.E5) 

CALL  PAGEI1I.  ,  E  «  5  I 

CALL  ** I  >  A UF  (  '  IN  c 7° L  1  1 

MAXLI  N  =  L  INcST  (LSC.PAN  ,300.2r>  ) 

CALL  L  INES  (  •  l.AUC  (  -**.  3  )-*F  '  .lF'.SAK  ,1  ) 
CALL  L  IN  EC(  ’  5 .4  A 10  (  -H.  5  1-4  A  •  ,  lEGPAK  ,  2  ) 
CALL  LINES!  *  !  #  4  X  l  (7  (  :  H.  5  )  —  3  t  ’  ,  LEGPAK.  ,3  ! 
CALL  LINES  I  ’ 5.  A  xlC ( 3H. 5 l -3 t  •  .LEGPAK  ,4  i 
CALL  LINES! 1  1 .4 x 1C ( EH. 5 1-2 S •  .LEGPAK  ,5) 
CALL  LINES!  1  5.£.xlC(ru.  31-21'  .LEGPAK  ,6  ) 


CALL  LIN 
CALL  MY  L 
CALL  FU-LRA 

CALL  SECCt-o  (  SC  .  ,  1..G02  ,  l  ) 

CALL  THkCSV (  a  C2  ) 

CALL  “E I CHr ( a  2  ) 

CALL  XNAMEf'TPLE  STRAINS', 1001 

CALL  YNAME ( • TFli  £TR:SS(  (  )MPA(  IIS', ICO) 


LINES!  '  ! .4 ; 


2"1  ) 
«*  i  ’ 

.lFAFAK  ,1  ) 

4  »  ' 

, lEGPAK  ,2) 

3  S  ' 

.LEGPAK  ,3) 

3  S  ' 

.LEGPAK  ,4 i 

2  S  1 

.LEGPAK  ,5) 

2  S  ' 

.LEGPA  k  ,6  ) 

1  S  ' 

•  LrGPAK  ,71 

1/ 

£  J '  , is  ) 

95 
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IAD-A152  816  SUPERPLASTICITV  IN  A  THERMO -MEC  HAN  I  CALL V  PROCESSED 
RLUMINUM-102XMG-052XMN  ALLOYIU)  NAVAL  POSTGRADUATE 
SCHOOL  MONTEREV  CD  ME  HILLS  SEP  84 


UNCLASSIFIED 


F/G  11/6 


NL 


uouuu 


7*  j  \ 

•nr  :cr  -?  •  v 

Vir,:'ifc  =  =:r;.;  S 

stress  aga  : ,» s 

E j> T"~  NA L  TLDcp 

real  ai  ( ini ,  n  ( :c  i ,  a  3  (  n  i ,  a  a  ( :c  i  .as  i  ic  )  ,aai  id  i 

RE  AL  A  7  1 10)  .  A  6  (  i;  )  ,  ;<?(  i ->  I,  A1  C  110) 

real  ?i(ni.e;(ic>,e3(ici,flMic>.a5<ic).a6<i3i 

REAL  E-1  1 101  ,  t»l  1C  )  r?q<  10  I,  31C  (13  ) 

REAL  SI  (  HI  .  S  2  (  1C)  .331  HI  .  34  (  10!  .55  (101  .36113) 

real  :  7 ( m ,  :e ( : :  i , . 3 1 , sic  c  :o i 

REAL  El  (10)  . E2  lie  )  ,  S3t 1 3  ),£A  1 10  )  .£5 (10  )  .col  10) 
REAL  E7  (  10!  (SE(IC)  .  £9(  13  1,210(101 
real  C,C  .2 ,5  .C)-G  ,TC  ,T0,LEG?AK  (500) 

INTEGER  I  ,?TS1  ,PTS2  ,?TS3  ,?TSA,?TS5, PTSE 

INTEGER  PTS7fFTS6,RlS9,R7Slo 

1=0 

writei  t.s) 

CCNTINUE 
[  =  [*>. 

R£AO(  ;c,*.cNC=2C)Al  (II  ,31(1) 
si ( ii =a  1 1 :  i-  ( i  <e i ( i )  i 
El  II  )  =ALC3( 3 1 (  I  I  +1  ) 

ACJUSTM^r  rCP  OSTEON  ANO  ELASTIC  STRAIN  »***= 
C  =  15.3 
C  =  .  J75 
S  =  $l(  I  l 
E=E1 (  I  I 

CALL  SLCFC(C  .C  .E.S.CHGI 
El  (  1 1 =CPC 

v.«iT=  ( 6 ,1 1  ai  ( i )  ,si(  I )  ,ai  (i ) ,  in  i ) 
gc  rn  ic 

CCNTT  ,‘IUE 

pts;  = i-i 

mill  liiiuiiinuu 
1=0 

WRITE! 6,  ;  ) 

continue 

i  =  :*i 

REAOI  72  ,*  ,E‘.C=A0  1A2  (l )  ,  321  !  ) 

S2(  1 1  =  42  1 1  )■••  l  1  te:  (  I  )  I 
E2 ( I )  =ALCC! 32  (  I  I  «i  I 

AC  JUS  T^EM  =CF  (NSTFCN  A.NO  ELASTIC  STRAIN 
C  =  20.  1 

C=.0Ai 
S  =  S2(  I  1 
E=E2(  I  ) 

CALL  3  L  C  Fc  (  C  .  C  i£fS, CHG  J 
E2I I ) =C  E  G 

WRITE  (6  ,2)  A2  (  I)  ,S2  t  I).  32  (II  ,  E2(  I ) 

GC  TO  3  C 
CCNTINUE 
PTS2=  1-1 

222222  222222222  22  222  2 

1=0 

wfl  I  r=i  s,  ;  ) 

CCNTINUE 
1  =  1*1 

READ!  71  i*,2.MC  =  EC  IA2II)  .331  I  I 

53  (  I )  =A3  (  I  I”  U  we  2  (  !  I  I 
E2 ( !  I  =a  c  CG ( A  3  <  I )  ♦ 1 ) 

AC JUS  TMENT  =CP  INSTPC’I  ANO  ELASTIC  STRAIN  *»*->•■ 
C  =  27„ 5 
C  =  •  3  8  3 
S  =  S3(  I  I 
E  =  E3 (  I  I 

CALL  SLCPEt C  ,C  .E  ,S  ,CHG) 
c 3 (  II =Ct-C 

tMKE 

■  RfE  (  i  ,  3)43  (  I)  ,S2  (  I )  ,32  (I  >  .  S:(  I J 
GC  T0  3  C 
CCNTT  SUE 
PTS3= I-  I 

'  j  Zn  '  ""  ‘  * 

•  P !T"( t , 5  I 
CC.NTI  NUP 
1  =  1*1 

REAOI  70  ,w.ENC=aC  IAA  (II  ,34< I  I 

54  <  l  I  =  A  A  (  I  I*  (  I  <p4  (  II  I 
£*  1 1  I =ALCS( 84  (  I  I  ♦  1  I 

AC  JUS  T*E^T  PC  F  INST=0N  ANO  ELASTIC  STRAIN  «»*-'■» 
C  =  3  7. o 
C  =  ,l 
S  =  S4(  II 
E  =  E4(  I  ) 

CALL  SLCPEtC  .C  <2 . 5  »CHG  I 
EA( I  I =CHC 


>  1 1  \  4 1 :  >  t '  4 1 


■  i :  > .  r  i  t :  i 


cc.'.t  ;  '"jt 
=TSA*I-i 

■«  <4  4  4.  4  C  4  44^»hhi4‘* 

i*o 

wRITc(6 .5  ) 

CONTINUE 

1*1*1 

READ! 59  .*  ,CNC  =  lr: ) AS l! >  ,  E5  (  I  ) 
s? i  r )  =a5 ( r )  -■  ( i  <e e i  n  t 
EE(I>*ALCG!9E  lIMl  I 

ADJUSTMENT  rCF  INSTRON  AMO  ELASTIC  STRAIN  ->»*** 
C*S4. 2 
C  *•  1 
S  =  S5(  I  ) 

S*E5<  I  I 

CALL  SLCFE!  c  ,C  lE  iS  <  CHG  1 

sen )  *chg 

•a*** 

»RITS ( b  ,2) A  5  (  I  )  ,S5  (  I  )  ,  3  5 (I ) . Eft  I ) 

GC  T~l  OC 
CONTINUE 
PTS5*  t-  1 

E?E5555£!lE5~E;;!?E£f  =  5S“55; 

1=0 

•PIT?!  4 .  !  I 
CCNT  I  Mj  E 
1*1*1 

R  EAO  (  ;7.».'NC=2:C)A4(I  )  t36(  I  I 
S6(II=A6(I)~(l<c6(!)) 

E6 (I  ) =4 ICOl S*  I  !) *1  ) 

AC  JUS  T“ENr  PCR  INSTFCN  ANO  ELASTIC  STRAIN  ***.»* 
C*52.  R 
C=.067 
S  =  S5<  l  ) 

E*EM  I  I 

CALL  "  L  C  F  r  (  C  tZ  iC  >S .CKO) 

6* ( I ) *CEC 
**-<«.* 

WRf!’C(i.3)A4<I>,£4(:),G6(:),c6!II 
GC  TO  2CC 
CCNTINlE 
ots6*  r-i 

4446066644*00*6;  44466 6o66e66646  66  000 
1*0 

WRITE!  4  ,5  I 
CONTINUE 
I  *  I  ♦  L 

RPAO(  45  ,*,tMC*5CC >  A  7 ( I  I  ,  67 (  I  I 
|71 1)  *A7  II  )  •  l  1  <9l  (  I  II 
E7(I)*ALCG( I’l  I) *  1  I 

ac jus "mem  cc r  losrsri  A.vn  'last::  st-ain  >«>  *« 
c*«i» : 

C=,15 
S*S7(  ! ) 

E*G7  (  I  ) 

CALL  SLC  =  ?( C .C  ,  =  ,S  ,CHO  ) 

67 ( I  I =CEC 
aaax:1! 

WRIT;  16, l)A7(IJfS7<I),  87(11, E7{!) 

GC  7n  aCC 
CONTINUE 
PTS7* 1-1 

77777777777777777777777777777777777777 

1*0 

WRITE! 6  »  E  ) 

CCNTINUE 

1*1*1 

REACH  64 ,* ,£NC  =  70C  ]Ag(I  ) , 68 (  I  I 
SE(I)=AE(IMM1, 96(1)1 
E9II) =A l CG ( 9  E  (  !  1*1  I 

AO  JUS  THEM  =  CF  I  NST  ~C?1  AND  ELASTIC  3TC  A  1*1  ***’= 
C  =  L 1  )  o 

c  =  .l; 

S  =  $8(  II 
E  =  c9 (  I  ) 

CALL  3LCFE1C»C  >  c  i3,CHG) 

E  6  ( 1 1  *CHG 

aaa*”* 

WP  TTE  (6  ,2  )  A3  (  I  I  ,  S3 (  I),68(I),EE(I) 

GC  H  oCC 
CONTINUE 
FTS9* (-1 

EE6E385SE6E9EEE6efE?E9388S338ES98 

1=0 

WRITE! 6.E) 

CCNTI'IUE 
I  *  I  *1 

RE  AO! 63 ,A>END*9:C)JS(I  )  ,50!  I  I 

SS( I  1  =AS ( II  * (  I  <ac  ,  [  ,  | 

E<5(  I  I  *  A I  rC!5S  (  I  I*!  I  __ 

9  < 


iC-jCT«?M  - c  f  ins~  =  :-;  ang  slas’IG  $- 

C  =  L  r  q  . 

C  =  ,;5 

:=$?( !  i 

£  =  e  9 1  :  i 

GA  l  L  ^  3  L  C  F-  (  C  fC  ic  ,  S  * CHS ) 

S**-u= 

»SIT3 (6  ,2) 49 (  I)  ,'=(11,39(1)  ,£  =  (!) 

3  c  c 

CCNT  : UU  c 
PT3  =  = [-1 

1=9 

»P I T? (  fc ,  5  ) 

CONTINUE 
I  =  I  -  l 

s£iO(  25,*,cNC*i:cc)«m  1 1 . a l c c 1 1 
£10 ( I  )*«1C( I  1 1 ( i ♦ 3 1 C ( ' 1  ) 
£10(II=Ai:3(E1C(I)+l> 

4CJU3TMENT  =CP  I NST  -C‘l  AND  ELASTIC  STRAIN 
C  =  1  3  J  • 

C«.l 

s=sn  ( 1 1 

E=€10 ( r  I 

CALL  SLCF  =  (C  ,C  .C.'.CHO) 

E10  (  I  1  =  0-0 

<*==*, 

(6  0 1 Aicu  i  ,ci ca  i  ,eio(  ii .cioi 1 1 

CONTINUE  ° 

PTS 10=[-' 

ic  1 310  n  ic  i  ^  i  c  i  c  i  c  i c  •  o: o :  ci  o :  c  10 


::cic  •oi.'iciiicio 


CIVENSIC.N  LSCPAK 
CALL  CC'IFFS 
CALL  3MGCTH 
CALL  ?GL>3 
CALL  3LCWLPI, 3 5 I 
CALL  PAGE ( 1 1 . ,2.5) 

CALL  J  I  X  A  L  r  (  '[('’FlM 

“A  X  LI  ML  INS  S  T  (L  ECP  A  N  ,5  30  ,20  1 

CALL  LINE*  (  ‘  l.A  )1C  (  E-.  3  I -a.  S  ■  ,L£GPAK  ,1  I 

CALL  UNE'I  •  2.3X10  (  EH.  3) -A*  •  .LEGPAK, 2 > 

CALL  L I  N  =  3  <•  5.4XICI  PH.  S  )-<►»•  .LEGPAK  ,3  1 
CALL  LINES!  *  1 . A  X 10 ( *H«  31—3**  » LEGPAK  ,41 
CALL  LINES ( ■ '.cXICI EH. 31-3  i>  ,l£G?AK  ,5) 

CALL  Li NES<  •  5.4X10<  PH. 5 1-5  *’  ,  LEGPAK  ,6  I 
CALL  L INE3  <  •  1  .Ax  1C( EH. 51-2* ’  >L;GPAK  ,71 
CALL  LINES  (  *  2.6X10  (  EH.5  1-2  *■  .LEGPAK  ,3) 

CALL  LINES!  • S.4X1CI EH, 5 1-2S*  ,  LEGPAK  ,9  1 
CALL  L IN6S(  •  1.AX10I EH.  5 )-!*•  .LEGPAK  ,  10  1 
CALL  CYLEGN (• STRAIN  RATS'  1  / £  * • . 16  » 

CALL  PUTLi’A 

CALL  SHCCHR  ( =C.  ,  1..C02 , 1  I 
CALL  TH  KCP V  < . C2  I 
CALL  HEICHT(.2I 

CALL  XNAMEOTRLF  ST°  a  !‘l  i  •  ,100  1 
CALL  YNA.“E(  •  TRLE  STR ESS (  (  I  HP  4 ( ) 1  * ’ , 1 00 1 
CALL  AREA2GI 3.C.4.C  I 
CALL  hPACI'K  1  !  •  .ICO, .5  ,2  I 

CALL  HEAC IMI • STRESS  VS  3TSA IN  I  • , 100 . 1. S  ,2 ) 

CALL  j  **  A  P  (0.  ,  .  1  ,loC,C.,50.«22C.) 

CALL  THkFRHI.C'I 
CALL  FPANE 

CALL  CURVE (51  ,'l  ,?T$!  ,*1  | 

CALL  SLR  V6(E2  , 12  ,PTS2  ,  +  l  I 
CALL  :URV£<  =  2  ,S3  .PTS2.  +  U 
CALL  CURVEfEA  ,  i<-  ,FT'4  ,  +  l  ) 

CALL  CURVE!'?  ,S5,?T'5,  +  l) 

CALL  CURVE ( £6  ,  '6  ,RT'4 ,♦>  I 
CALL  CURVE(  =  7 ,  '7  ,?T'7,+1 | 

CALL  CUPVEIS  5  .  S5  ,PTS  5  ,  +  i.  I 
CALL  :UPVE(E=  ,  59  ,?T S=  ,  +  l  1 
CALL  CURVE(  =  1C  ,'IC  ,?7S1 0  ,  +1  1 
CALL  =ESE7(  ■ TRKCPV  •  I 
CALL  Pp  SS‘r  (  ’ HEIGHT ’  l 
CALL  lEG'UOI LEGPak , n, 3, E, 3.  I 
CALL  EL t'C ( 5. 2 ,2 . 7 , 2.5 , 2 . , .02  1 

CALL  '3ES'A(J(  1  TF-JCeq  j-jqc  -  j  ■  ,100,5.2,  1.  ) 

PALL  I  NTNr  (  2  SC  ,  •  ;EUT| ,  •  A  BUT  •  I 

CALL  'xp  S  S  AO  (  '  (  'H.  2  I'll  SXHX  I  C  I  '  ,100  ,  '  ABL'r'  ,  1  ABU 

CALL  3LPFr  (  =.  ,  .=  ,2. 7,.  a-,  .02  I 

CALL  +PCSAO(  'AL— IC.  20'' 0—0.  5  C  *  '**1  5  *  ,100,2.5,5.5  I 
CALL  3LFFC(;.q,S.A,c.o,.+,.v^I 


ABUT ' 1 


c 

c 

c 

c 

c 


10 

c 


c 

20 

r 

3  C 

C 


c 

40 

c 

50 


C 


c 


SC 

C 

70 

C 


T-'lz 

t  — ♦  r  ^ 


4 s  ’=l  : 

1 

■  T::  !  c  ■ 

-ST  L.7 


-  -  '  Cf 


■Jr.  ?T=: 

:'■=  a  in , 

iii". 


VO  'NES 


1  IV  = 


,3:(D 


ANO  ELASTIC  3TP  4 1  *)  '.«»J 


"•  NO  NO  v;j- 

5TP'r3C  JGA  ■  *-  " '  - 

■*  mx.z  s  *9*?  ' 

E>T-=fjAL  SLC  R  F 

PEA  L  A1  t  13)  ,  A  2(K  >  ,  Alt  10  >,  A4  l  1C  )  ,A5  (  1C  )  ,Afc(  13) 
OP 41.  47(13)  ,  A  S  (  1C)  » A9(  10  I  »  A1 C ( 10 ) 

SEAL  31 (1 1  I , 32(  1C) ,33(  IC l.34( 10 1 ,35 ( 12  I ,36< 131 
SEAL  37 ( m  ,Ef  (1C  )  ,E9( 13  J, 31CI10 ) 

HEAL  31(13)  ,52110  ,53(  1 3  1  ,S4  ( 10 )  ,S5 (10 )  ,3o( U ) 

heal  37(n),iE(ici,;9tio>,s:c(iai 

REAL  El ( 10)  ,f  2  (1C)  ,E3(  10  I.E4  (10  )  ,c5  (10  ),E6(  10  ) 

REAL  ETUO)  ,cE(lC)  ,£<?<  10), r  10(13) 

REAL  C  .C.c.i . CHG ,TC .TO.LEGPAK (500) 

INTEGER  I.PT51  ,?152  ,PTC3  ,PT 54  ,?TS5 , PTS6 
INTEGER  FTS7,?T5E,P7S9,PTS10 
1*0 

WRITF( t , 5  ) 

CONTINUE 
1  =  1*1 

REA0( 66  >* ,SNC  *  2C  )A  1 (I)  ,31(1) 

51  l  I) *A1 ( I )» (  1  =E1 ( I  )) 

Eld  I  =  A l CG ( 3  1  (11*1) 

ACJUSTMEM  PCS  INSTPGN  ANO  ELASTIC  STRAIN 
C*12.3 
C*.I 
S  =  Sl(  I  ) 

E  =E1 I  I  ) 

CALL  SLCREIC  ,C  ,3,S, CHG) 

El<  I)  *C)-G 

*»«  X 

WRITE ( 6 ,1 1 A1 ( I  I  ,SI(  11.31(1)  ,  El( I  1 
GC  73  1C 
CONTINUE 
PTS1= 1-1 

linn  iiiimiiuin: 

1*0 

wp  ITE (  5  ) 

CCNTt  JLE 
I  =  (*l 

REAOt  75  ,»  ,  INC  =  40  IAI  ( I)  , 

$2 ( I >  *AC ( 1 )  •  ( 1  <32 ( I  )  ) 

E2(I)=alC3(32(  !1  « 1  ) 

AOJUSTVPNT  CCP  '.NST  =  C‘I 

c  =  n,  4 

c*.i 

5  =  S2 1  I  ) 

E=E2  (  I  ) 

CALL  5LCFKC.C  d.S.CWG) 

S2(  I  I  *0-0 

..... 

WRIT:  (6  ,2)  42  (I)  ,52  (  I ),  32  (I )  ,  E2t  I ) 

GC  T*i  2  C 
CCNTINUS 

.PTS2*  !-;l . 

222222222212222*12222 
I  =0 

»RIT;(  =  ,  5  ) 

CONTINUE 
I  * !  *1 

P£AO(  76,*,:*!C**C>A?  ( t )  ,32(1  ) 

52  (  I  )  *42  ( I  )  .  (  1  ,3  3  I  ’  I) 

E2(I)*A12G (32(11*1) 

ACJUST'-ENT  =CP  INSTC'N  ANO  ELASTIC  STRAIN  xmuam 

C  *  14*  7 

C*.05 

S*S3(  l  I 

E*E3<  I  1 

CALL  2LCPEI  C  ,C  ,c  .S  .CHG  I 
=3(1) =CHG 

*•»»*« 

-r  re  ( 5 , 2 ) a  2  ( : )  .52 1 : ) , 32 1 : )  m ( i ) 

CONTINUE 
PT53= i-  \ 

i'j-5v>3->'>iT!33':2-2222"23222 

'  no' 

„P  IT~  (#-.:) 

CCNTT  NU 5 
I.I*i 

P  E  A  0  (  ‘2 , * , E  N  C  *  E  C  )A4  (I)  ,34(1) 

<4  (  I  I  *44  (I  )••  (  1  ,P4  (  I  I  I 

fcJUSTNENT  ‘pCP  ^NSTPCN  ANO  ELASTIC  STPAIN  ***** 
C  =  12. 4 
C  *.  1 5 
S*S4<  I  I 
E«E4(  I  ) 

CALL  SLCPEtC ,C  .E.S.CHQ) 

£•4(1)  =>CHC 


r 


100 


1 5  i (  n  . s* (  n ,  e-v  ( ; ) ,  c-i( : » 

CCNTINUE 
F7S4  = [-1 

1=0  ***'  "**"* 

WRITE  I  6.5) 

CCNTINUE 

I«Ifl 

REACH  61  ,»,2NC=1CC  I  «5(I  I  ,  £5  (  I  ) 

5  5 l I ) =45 (:>-(!  <3  5  (  I  )  ) 

6  3  ( I  )  =  4  L  C  G  (  2  5  (  !  H  !  ) 

4CJUS  1M£NT  fCR  INSTRON  AM)  ELASTIC  STRAIN 
C=26. 5 
C  =•  06  7 
S  =  S5(  I  ) 
e=E5<  1 1 

call  SLCfEIC ,C  ,  E  ,  S  ,  CHG 1 
£5(1)  =CK- 

****« 

WRITE (6 ,2) 45 (  I  I  ,551  1 1. 35  II  I  ,  Eft  1 1 
GC  ~~i  3C 
CCNTINUe 
PTS5= 1-1 

55555555555555555555555555555 

1=0 

WRITE l  6  ,  5  I 
CCNTINUE 
I  =  l*l 

READ (  5Q  ,*,=NC  =  !'CI3 HI )  ,  £61  I  I 
S6  (  I)  =46 ( I  I  -  I  1  (  [  I  I 

?6 ( I  I =41CG( 2  5  (  I)  »1  I 

ACJIIS  TMEILT  FCP  IHSTFCM  4N0  ELASTIC  STRAIN  “**  = 
C  =  AO. 7 
C  =  .l 
S  =  S6(  I  ) 

E  =  E6l  I  I 

CALL  "LCFEIC.C, C»S. CHO I 
Eel  II  =CK 

»«*** 

WRIT" ( 6 , 2 146  f  I  )  ,S6(  M, d6(I  I  ,  £{( I  I 
GC  to  ;cc 
CCNTINUE 
PTS6=  !-  I 

i6oi66ccfci66666so6c£6666666666666666 

1=0 

*R  ITE  (  6  ,5  I 
CCNTINUE 
1  =  5*1 

REAOI 41  ,» ,  ENC  =  5CC  I  A  7 ( I  l,£7(  I  I 
S7I I  I =47(1  I  = (  1  <971  I  II 
E7 ( I  I =ALCG<  S  7 (  1 1 *1  I 

ACJUST-'Ewr  --R  !  N  ST  "~*|  ANG  ELAST2C  STRAIN  »*• 

c  =  oL<> : 

C=,032 
S  =  S7(  I  I 
E=ET(  I  I 

CALL  SLC?=(C  ,G  ,E,S , CHO  1 
E"7  (  I  l  *CK 

WRITE (6 ,1)47 (  I J  ,S7(  11,37(1  I , E7< I  I 

GC  Tr7  '•CC 

CCNTINUE 

7  77777777777777  7  77777777777 777777777 T7 
1=0 

WRITE! i  ,5  I 
CONTINUE 
1  =  1*1 

RcAOt  60  ,  E.NO  =  73C  I  A  9 ( I  I  , £3  I  I  ! 

SE  (  I  )  =48  1  I  )=  <  1  ■•£?(  I  I) 

E9 ( 1 1  =A  LCG ( 9 f (  I  I  ♦!  ) 

AC  JUS  T^EA  T  or:  IfiST'CN  A  NO  ELASTIC  jTPAIN  =*=■ 
C  =  3  _5  o  5 
=  •  * 

S  =  S3 (  'I 
E  =CR  <  I  ) 

CALL  SLCFEIC, C.S.S.ChG) 

E?  I  I  )  =0-0 

=  •*.- 

wfll'r“  <6 .21  48  (  I  I  ,S8(  I  I,  33  U  I  ,  £81  I  I 

GC  *7  iCC 
CCNTINUE 
F  T  S3  =  t  -  l 

EEEE938EEE538EEEEE65E8838E336E596 

1=0 

WRIT-:;  6,5) 

CCNTINUE 


c 

900 

c 

100C 


c 


c 

lice 

c 

c 

c 


c 


c 


i  ~  i :  I 


::i  a  no  elastic  strain 


:  =  [«■; 

9=40  (  3  9  ,  INC  =  <=  '*  I  ic  (I  ) 

s9C!=A=i;i-.(i<r  =  <:ii 

2->(II=ALC0!i9t!:«l! 

Al  JUS  *y£N7  -r?  ;,\S3 
u  =  1:J  J  • 

C».l3 
S  =*  5  9  <  I  ) 
e=99(  r ) 

CALL  3  L  C  F  E  t  L.  i  <_  i  :  , 3 , wHG  ) 

E  9  t  l  )  =  C  E  L- 

ta»I~c  (  i  .2)  A9(  I )  ,E9l  t  ),  39  (I  I  ,  t?m 
GC  *0  ACC 
CCNTINUE 
PT39= 1-1 

cqqqqq  qq  ccqqq  ccccccceoqqqcqa 
1=0 

WRITE! fc. ?  > 

CCNTINUE 
i  =  m 

aEAO(  27,*,CNC  =  1 ICC )A1K I t.aiC  II l 
sxon  i=a!<?(  1 1* ( i+ei: in  ) 
eio< i ) =Aic3t  e  ic ( i » ♦  1 1 

ADJUSTMENT  rCP  INST=T|  AMO  ELASTIC  STRAIN 
C=143. 

0  =  i  l  5 

s=sio( :  i 

5=E1 3 (  I  ) 

CALL  3LCEC(C,C  .E.3.CHGI 
610(1  I  =  C  H  G 

wP ITE ( 6  .  1)A1C(I),S1C!I  I.el-I  IliclOl  I) 

GC  TJ  ICCO 
CCNTINUE 

?tsxo=i-i 

ic i '  o  i ;  ic :  *• : ;  i  : : c : c :  c: : : ::  - 1 : :: 

CImtNSIC'.  lscrak 

CALL 

CALL  SM'ICIM 
CALL  ?CLV2 
CALI  3LCV«LP(.E51 
CALL  FAGEUI.  .E.SI 
CALL  -MJALFf  '  !N  S' 


L  *  I 

v  A  x  L  I  N  =  L I  NEST  IL EC?  AN  ,5  00  ,20  ) 
CALL  LINES!  •  l.A»10(EH. 

‘  LINES!’  E.exiOIEH.  =  )-4.$ 
LINES! * ;.tXlC(SH.5»-^t 
LINES!  1  I • A  x 10 ( CH. 5  1-3$ 
LINES!  ’  2  •?  X  10  (  EH.  5  1-3  S 
LINES!  •s.mc<ew.5»-3* 
LINES! ' 1.A»1C(EH. 5l-2i 
LINES  (  '  2  •  5  *  10 ( I H.  5  1-2  5 
l INE5!  ' S.fc  A1C! :u. 5 ) —2 S 
LINES!  '  1.AAI0!  3H.  5  )->.$ 


CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 


•  LEGpak  ,11 
,LSG?A K ,2) 
.LEGPAK  ,3  I 
.LEGP4K  I 
,LEG?AK  ,5  ) 
.LEGPAK  ,6  ) 
.LEGPAK  ,7) 

, LEGPAK ,3  » 
■legpak  ,;i 
>  LEGPAK , IG  ) 


NVLEGN!  ' STRAIN  RATES  1 / S  1 '  ,  16  I 
FUTUNA 

3ECCHR  (  SC.  ,  I  ,.002,  I  1 
THKC’V!  .02  I 
EE  ICHT (  . 1  ) 

<NAf*E<'T  =  UE  STRAINS',  100  1 


CALL  INANc('T3l3  '7Re3S <  (  IMP4 (  )  IS ’ ,100 > 
CALL  AREA20I  3.C.E.0  I 
CALL  riEACIN  l  •  S’  ,  ICO,  .5  ,2  I 
CALL  HEACI-J!  '  STRESS  NS  STRAINS*  ,150.  U5  ,2  » 
CALL  SPAF (u. , .  1  ,1.0 ,C., 50.*22C.  I 
CALL  THKF=M(.C2l 
CALL  FP4PE 

CALL  CURVE (El  , 51 ,FTS1 ,♦>  I 
CURVEIE2  ,52 ,FT!2 ,*1  I 
CJRVF(c3  ,S2  ,?TS2,*-l  I 
CU0VE(SA,24,F7S9,*i) 
C'JRVc(E5,SE,Ft:e,.i  i 
CoS  V  F  (  2S  ,  :t  ,?TS*  ,  .1  • 

CURVE! ,S7,FTS7,*'  I 
CURVEIS  3  ,  S  E  ,  FT  2  E ,  -1  I 
CURVE  IE"3  ,SC  ,  ?T  S  S  ,  ►  1  1 


CAUL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 

CALL  3E SET ( ' TEK CFV 
CALL  RESET (’ME! GET 
CALL  L:GF-,3  (  LcCFA*  ,  I 

call  h  f*c ( c  .7 

. . . 

CALL  “cSS-oi  ’  -  ftsai 
CALL  INTN'-(07f  ,  •  !euT 


URVEllli  ,£1C,?TS1J,»1) 


t  T,  T  ,  3, 

3  ,  j  .  ,  .  *. 


] 


CALL  “ESSAGi  ’ 
CALL  JLRFr; 


(  rE.  2  )  0!^ 
,  A  •  *,  ,  —  .  7 


NJP  E  =  1  ’ 

seuT’  i 


<E< I C  S  • 

,.-■.011 


IC'1,2.5.4.  : 
,100,  ’  A6UT  ’ 


xm 


I 

•  ABUT •  I 


102 


"  ><_>u 


la 

c 

c 

20 

c 

30 

c 

c 

4C 

c 

50 

c 

c 

6C 

c 

70 

C 

C 


TP')'-  -Ttr;;  ^  T  6 )  A’  ’"  =  1  ">  3  C 

thi:  =  rc jr  a  »  . ■=;  "ue  *"  =  •:-  and  j"jr.  =»• 

eng: Pi;  i-siss  vjc  :t's:n,  v.o  ~>-=‘s  3l3’5  t 

STRESS  AGA 

external  slope 

3 E AL  A1  t  10)  .A2ilC),A3(10),A4(ir)  ,15  110.46(13) 

RE  AL  47(10)  ,AF(  1C)  ,  A<?(  10  >.  A  1C  (1C  ) 

3  c  AL  91  (  10  I  ,ei(  1C  )  ,  93(  10  I,  34  HC  )  ,S5  (10  )  .ao<  10  ) 
SEAL  37001  ,  a  f  (  1C)  ,e9<  1  0)  ,310  (10) 

REAL  SI  ( 101  , E2(1C ) ,:3( 10  1,34 ( 10 ) .35 ( 1C ) .Sol  13 ) 
REAL  S7<  10)  .I'llCl.'KIJI. 3 10(131 
REAL  El (101 ,c2 ( 1C) ,E3( 10  ),£4  (10)  ,E5 (  10  >  ,E6( 10 ) 
REAL  E7(10) ,te(lC)  ,E9(10  ) , El C ( 10 ) 

REAL  C  ,C  ,c  ,S  .CEO  ,TC  ,70  ,  LEGPA  x (500 ) 

INTEGER  I,?T$1  ,?7S2  ,?TS3  .RTC4  ,?TS5, PTS6 
INTEGER  PTS7  ,PTSE  ,P1S9 .PTS10 

r=o 

WRITE'!  6,5) 

CONTI NLE 
1  =  1*1 

seaoi  51  .*  ,cnc=;c  )ai  (i) ,  an  i ) 
si <i ) »ai ti i* ( l «ei ( 1 1 ) 

El ( I) =ALCG( 91  (  I  I  +1 ) 

ADJUSTMENT  FOP  IASTFON  AND  ELASTIC  STRAIN  «**« 

C  =  5.21 
C=.033 
S  =  S1(  I  ) 

E  =  £1  (  I ) 

CALL  SLOPE  (  C  ,C  ,E  ,S.CI-G  I 
El  (T  I  =CRC- 

**»»-■» 

write  (6  ,1)  ai (  n  ,si  ( : i ,ai  (I ) ,  fim 
so  to  ic 
CONTINUE 
PTS1=  r_ i 

min  niiiiiiiuiiii 
1=0 

»R  fE  (  3.3) 

CONTINUE 
1  =  1*1 

READ!  29  ,*  ,ENC=4C  )A2  (  I)  ,32(1) 

$2(  I  ) =42 ( I ) « ( 1  "92  (  I  )  I 
c2( I) =ALC3< 32 (  I  1*1  I 

A  C  JUS  ™EN~  FOR  !  I*  ST  PON  AND  =LASTIC  STRAIN 
C  =R.  7  o 
C  =  •  0  5 
5  =  S2 (  !  ) 
c=E2(  I  ) 

CALL  SLCPFfC.C.E.S.CHGI 
£2(1) =  CK 

WRITE (6 ,2)A2(  I  )  ,S2(  I  1,32(1  I  ,  E2(I ) 

00  TO  3 C 
CONTINUE 
PTS2  =  I  -  1 

2222 22 222222 222232222 
I=o 

WRITE! 6,3  ) 

CONTINUE 
1  =  1*1 

AEA0(23,3.SNC=6C  ’A?  (II » 9  2  ( I  ) 

S3  ( I )  =4  2  ( I  )  1  (  1  <»2(  !  )  I 
£3  ( I )  =alCG(  93  (  !)-*!) 

ACJUS  TRENT  FOR  I7STFCN  AND  ELASTIC  STRAIN  *»*»* 

C  =  1  2.  1 
C=.i 
3  =  S3(  I  ) 
e=p 3(  1 1 

CALL  SLCFEtC ,C ,c ,3 .CFG) 

ESI  I  I =CH3 

■rite  i* , i  a-*  i  1 1 . si  i  r ) ,  ?  (i ) ,  e:t  i ) 

GC  -  z 

CC  VT I  MJ  E 
PT53*r-l 

o  v)nviir^-3‘nv;n':ii,n3iT; 

'  i=o . 

•RITE! 6,3) 

CONTINUE 

1=1*1 

READ!  27  ,*  »3NC  =  9°  )A4  (I)  ,94(1) 

S4II I =  44(1 I  M 1 *941  I)  I 

ACJUST-EN?  ‘fCr'UsTRCN  ANO  ELASTIC  STRAIN 

0=21.2 

C=.  1 

S*  S  4  (  I  I 
i=E4(  1 1 

CALL  SLCPEIC  ,C  ,c  ,S  ,CHG) 

£4(1)  =0-0 

»*"=•,«  104 


»p it"  i  *  , :  i  a 4  1 1 ) ,  i ;  i ,  a-,  < :  i  ,  in  ;  i 
GC  ’C 
ccnt:  nle 

PTS4=  E  —  1 

4  4  4  44*4 1  4  4^444  4  44  4  £  £  4  44444444 
1=0 

v»P  ITT  (  6.  5  ) 

CCNTI  NUE 
1  =  1  +  1 

RFAn<26,».ENC=lCC)A5tI  I  ,55!  !  ) 

$51 II  =  AE  (  I)  -t  (  1  -6  =  (  !  )  1 

E5t  1 1  =ALCGl 55  I  I  Ml  1 

ADJUSTMENT  FCR  INSTFCN  ANO  ELASTIC  STRAIN  **=  =  * 
C=43. 7 
C*.l 
S  =S5 (  I  > 

E=F=<  I  I 

CALL  SLCFEE  C ,  E  ,E  ,S ,CHG I 
EE  l  II  =r>c 

1*i*u 

'-SITE  (6 .21  AE  (  I  )  .  551  I ),  35(1  )  ,  E  E  <  I  I 
GC  TO  SC 
CCNTINUE 
PTS**  I-  l 

ecccc^=CG:e;cct:e^eE^5cc^q 

‘f»6‘ 

.SITE! 5 . 5  I 
CCNTINLS 
1  =  1*1 

READ!  25  ,*,£»:  C  =  3CC  I  <6  (I  I  ,  E6  (  I  I 
S6  <  I  >  =A«  < !  »■*  <  1  -**4  U  )> 

E6( II *4LCG( 36  <1  1  +  1  I 

AC JUS  TM E  NT  POP  INSTFCN  ANO  ELASTIC  STRAIN  =***= 
C=54. 0 
C*.017 
$  =  S6(  I  I 
c  =  F6  (  I  I 

CALL  SLCFE(C  ,C  ,5 ,S,CH0) 

E6( I  I =CFG 

**»■-  * 

WRITE (6  .2 ) A6< I ) ,S6II>,36 (I  I  ,  E6(  I  I 
GC  T0  2CC 
CCNTINUE 
PTS6= I—  ! 

666666 <6  6  6666 1 6 (t 6666666666666 <(6666 
I  =  C 

wRITE ( t  ;) 

CCNTINUE 
1  =  1*1. 

READ!  2  4  ,  *  ,  £ '  l  C  *  5  C  C  M  7  ( I  I  ,  e7!  I  I 
S7(I  I  =A7  (II  <■  (  1  -E7(  I  I  I 
E7(I) =ALCG(37(  I  I  *1  ) 

ACJUST^ENT  CCP  I  NS  T  P  CM  -,<0  :lACT;c  ST=A!N  *-»  <u 
C  =  10  **  • 

C  =  •  i  t 
S -S7 (  t  I 

E  =  E7(  1 1 

CALL  SLCFEK  ,C,c  ,3  ,CHG) 

67(1)  =<CHC 

**=»:! 

WR  ITS  (6>aiA7(II,  £7(1),  37(1),  E7III 

CCNTINUE 

PTS7-I-1 

7777^777  777^7  7  77  7  7  77777  7777777  777  777  7  7 

„  CIVENEICN  LECPAK 

CALL  CCMPBS 

CALL  SMCC7H 

CALL  PQLY2 

CALL  3LQWLP (.25  I 

CALL  JRACSIO.  ) 

CALL  PAGE! 1 1. ,E.  II 
CALL  Ml  XALr  (  •  TNS7SIJ  •  I 
"AXL!:.*!.  II.EST  ILiCPiw  ,=  :o  .CO  1 

CALL  LiNEj!  •  5 .6  x  1C  I  -H.  ;  I  -*  t  •  ,l£G?AK  ,E  I 
CALL  LINES!  • ’ . 4  »  1 C I CH. 5  I -3 i '  ,L£G?AK  ,3) 

CALL  LI  NEC  (  '  5.6  .«  10  (  =  H.  7  1-3  S  '  ,  i. c  G  P  A  K 

'  ’•  •**10<  r*.  5  I -2  I*  .lcgpak  ,5) 

CALL  L  INFS!  •  5 . 6  X  I C  (  Eh.  5  I -2  »  •  ,  lE'GPAK  ,6  1 
CALL  LI  NFS! '  1.4X10! CP. 3  I -l J*  .LEG PAN  ,7) 

CALL  »VL:CN<  •  STRAIN,  PATES  l/*va&l 
CALL  fij  TLF  4 

CALL  SnCCnR  (EC.  ,  1 ,.COZ , 1  I 
CALL  HKC=7 (.021 
CALL  HEICHTl.C) 

CALL  <  NA  WC(  '  T?LC  STRAIN*  •  ,100  I 

Q*Vi"  ^=*U',Ia5:E  C’PfSG!  (  MPA  (  ll»' .ICO) 

CALL  '  r E A 20 ( 3 . C , 6 .0  I 


r  : 

call  ,sap  i  ‘ « . 

CAL-  ( . C2 l 

C»*  L  L  ^  ?  &  ** c 

CALL  ;  J  P  F  (  5  I  .  5 1  .  p  T  s  1  , » 1  ) 

CAL- 

CALL  CUP'vf  (  22  .  2  2  .  r  7  3  2  .  *-1  > 

CALL  2JP'vF(2~iCa.F7SA.*'1I 
CALL  2  J =  V  F (  2  ?  ,  2 5  ,  A ' : :  , * ’  ) 

CALL  2  -?  vF  (  tt:  .  LC  .rT-Ct  ,*L  I 

CALL  :  jp  Vc<  2’  .  :7  .AT  2*  ) 

CALL  22  SET  ■  •  T K  C  P  V  '  > 

CALL  EESE'r(  1 Lfc LETT1  ) 

CALL  LcGTVOILEGPAK  .T.5.5.3.  1 
Call  ELFFCi-.-  i-o>tcB5i2«3f«C< ) 

X  ta  n  n  H  W  »  .  BnwwnpliBiuiit  .  »a 

call  *2  SSAG(  •  T5yC2  =  A*JR  2  =  *'.123.2. 
CALL  ;  N  T  NfT  I  3  2  «  ,  •  i  EL  T  •  .  •  A  BUT  •  I 
CALL  ■'2  S  SAG  (  1  l  '>-.2  )Cl  "XK<  )Ct*  .130.  ’ 
CALL  2C?E'w(l.c  i  i  •*.  1 2  .  '  .  ) 

call  me  £ r  ig  (  •  AL-ic.  -cmg-'.  3 2 atns*  ,1 ; 

CALL  3LP2C  (  2  .  2  ,  ,  2.0  A,.  22  ! 

V  V  b»towi*W 

Call  ,c,:r"  ;ata  ,iC!tnt2  m  >iqt 

CALL  '■‘ESCAEi  •  INC  ICATE  PR  ACT'jPE  I '  ,  10  C 
CALL  EL  AFC(  t  .  1  ,.C£  ,A.3 ,.24, ,C2 ) 

CALL  CP’Cn.Z) 

CALL  2NCPL (3  I 
CALL  3CNEPL. 

FCRMATI  1x,lF:2.2  ) 

FCRMATl  1X,-.P22.3  ) 

FCPNATI  1A,4P'.  2.;  ) 

2C?'<AT  <  lx  ,  i  2  I 

FC0MAT(I<»/»'»x  .’E^G  STRESS'  ,2  «.*T->"  = 

i  'TAljA  ST5  a  I  I  •  ,  /  ) 
rjro 
CSO 

SL 3°1  UT  !  ^  SLCP2  (C.C.p.S  .CHG  I 
22  A  L  C  ,C  ,2,  S  ,ChC  ,TC  ,T3 
TC=0  (  1.  *0) 

TC  =  AL2G ( C»l.  I 
C:iG*p-S*70/TC 
IFfCHG.Lc.Q. ICG  TG  U 
GC  Ti  21 
CHG=0. 

CCNTINU6 

RETURN 


A6LT  ’  ,  1 


$•  .m, 

,  1  ABUT1 


i) 

LB  U  T  ’  I 


re  al  Hi]";).A2iic),i3(ni,ai[:ci,s2(::),ti2(i3) 
REAL  SI  !  10  >  ,SC(  1C  I  ,S2(  10  1 . 21  (10  )  .22  CO  I  ,E3(  10  I 
seal  C  ,C  .5 , 3  .O-C-  ,TC  ,~0  ,  lEGPAK  (500) 

INTEGER  i,PTSl ,  PTS2  ,PTS3 
1=0 

*R  IT5(  e , 2  ) 

CONTINUE 

1*1*1 

READ!  9*,*.ENC  =  20  )A1  (I)  ,31(1) 

s  i  ( 1 1  *  a  i  ( n  *  ( i  -  e  l  (  i )  i 

El (I  ) =ALCG( 31 (  I  > ♦»  ) 

ACJUST**EM  5CP  INS7FCN  AND  ELASTIC  STRAIN  ***** 
C=13. 2 
C=->  O  S  3 
S  =S 1 (  I  ) 

E  =  51  I  I  ) 

CALL  SLCF5(C,C,EiS,CHGI 
El ( I ) =ChG 

***** 

WR ITE  (6 ,11  Alt  I  I ,S1  (  I),  31  (I  ) , E  1  (  I  I 
GC  TJ  :c 
CONTINUE 
ET  S 1  =  I  —  1 

iiuuiiiim  n  miiniiu 
1=0 

*PITS(6,f  ) 

CCNTI NLE 
1  =  1*1 

REACH  33  ,<  ,rNC=AO  IAS  (I)  ,32(11 
S2 ( I ) * A2 ( I ) *  <  1  *32 (II) 

E2 ( 11 =A  LCS ( 3  2  (  !  I  *1  I 

acjjs  tmpm  rcr  instr-cn  a  no  elastic  strain 

C  =  25.C 
:=»  16  t 

s  =  S2 1 :  i 

5  =  E2 !  : ) 

CALL  2LC.=  =!C,C,2,S,CHG) 

52(1)  =i>r 

*  =  -•  1  ‘ 

*R  J71 ( fc  ,21  A2 (  11  ,  S2(  11,32(11  ,  *2( I  I 
GC  ’C 
:cnt  ;\l  e 

?T$1,  T-  1 

2222222222:2222:::22:222:2 
r  -r> 

t ,e  i 

CONTINUE 
1  =  1*1 

3  E  A  0  (  32i*..:NC=*G  IA3  (1)  ,33(1  I 
S  2  ( I  )  =  A  3  i  1  )  -•  (  :  -  E  2  <  1  )  ) 

E2l!l=ALCS(allll»!) 

ACjUSTvEM  =Cc  INCTFCN  AND  ELASTIC  STRAIN  ***** 
G  =o3. 

-  3  o  0  6  7 

3  =  S  3  l  1  I 
2=53(1) 

CALL  .1 _ "c(C,Cic»5f*_r'j) 

53(1)  =C.-C 

***** 

.i):’2(6,;ii1l  i  )  ,  13  (  I), 33(1)  ,  ?  3  (  I) 

GC  T3  EC 
CONTINUE 
3  T  S3  = 1-1 

233  13  33332233  32  22  22  ~2  m  ~23'i  “  “ 

~  Him**  tliii  Z  I?E  N  S  ION  ”  L  EGP  AK  (J1UI 


c 

c 


c 


1 

2 

3 

C4 

5 


U 

21 


[HI  3  LC'nL?  (  ,  £  !  ) 

CALL  ilia  it«:  l 

CALL  V!  J.'L.-  (  ■  I  N  «  7  P  L  1  I 
YAaLIN  =  LINS3T  (LSCPAK  ,5  -)0  ,201 
CALL  LINES!  •  E.cjUO  I  EH.  3  I—  S'  .LESPAK  ,1  ) 

CALL  LINE  Cl  1 5 .4 X1G (  SH. 5 1-3$'  ,  LEG  PA  K  ,2) 

CALL  L  INcS ( ' 5.6X13 ( EH. 5  >-2S  '  .  LEGPAK  ,3) 

CALL  .“YLEG.Ml  •  STRAIN  RATES  l/SI',16) 

CALL  FUTIP.A 

CALL  SFCCHR ( SC.  ,  1  ,.C02, 1  I 
CALL  THKCRVI.C2I 
CALL  HEIGHT!. 2) 

CALL  XNAHE  (  ’TPL’E  STRAINS  '  ,100  ) 

CALL  YNAHEl'TRLE  STR ESS ( (  IMPA  !  1! * • , 1 00  I 
CALL  AREA2C! e.C,6.C  I 
CALL  HgACIN  (  '  S  •  .ICO,  .5  ,2  t 
CALL  HEAC IN! • STR  ESS  \S  STSA  IN  S  •  ,  100 , 1.  3  ,2  > 

CALL  GRAFIO. ,  .  1 ,  l  .  ,  C  .  , 5 0.  ,200.) 

CALL  THKFRM!.C3> 

CALL  FR  A  HE 

CALL  CURVE  !  21  ,S1  ,?T$1  ,  *-1  > 

CALL  CURVE l 2 2  ,S2  ,FTS2  ,♦!  ) 

CALL  CURVE(E3  ,52  .PTS3.+1 ) 

CALL  RESET! ' T  HK  CP V •  I 
CALL  RESET!  •  (-EIGHT'  I 
CALL  LEGE NOIL EG PAK, 2, 5.4, 3. I 
CALL  3LPEC ( 5.1  ,2.7 ,2.5 ,1.5, .C2) 

WtoMrtrtUniifcWMtal'WIrLRWto.M 

CALL  HESSAG! 'TEMPERATURE  =  !  1  , 100 , 2 . . 2 .3 ) 

CALL  INTNO!  3  5C , ' *BL T' ,  '  AEUT'  I 

CALL  YES  SAG!  '  (  EH.  3  If!  E  X  H<  I  C  1  ',  ICO  ,  >  A  8  L  T A8  UT  '  I 
CALL  ELRECIl.E  , i  «**,.. .7  ,  .4. .02  ) 

li()Ntii<Vliii|i.iiHf^  (»  *  hhVw 

CALL  Mg  Z  GAG  (  '  AI-1C.2-AYG-C.  52 ?NN S', ICO, 2. 5. 5. 5) 

CALL  E-IREC  !  2 .2  .5.4  ,2.6.  .4,  .C2  ) 

WMInWHMHhVWHWhV  ,  n  h  In  k,  I,  W 

CALL  'ESSAG!  '  ?»r  C  A  T  A  R>  0  IM  T  S  ZC  NOT  I '  ,  100 , 1.  2  ,  .  i  ) 

CALL  “ESSAGl  '  INCICATE  =  R JCTURE  i '  .  LJ 0  .  '  S9UT  •  ,  ' ABUT  •  I 
CALL  3LF EC (  1.  1  ,.C4  ,4.3 ..24,. C2) 

l.l.«Ni.N,V,n,«R,H 

CALL  .RICC,:) 

CALL  ENOFU  3  I 
CALL  3CNEFL 

FCPYATI  1X.2F  1  2.  f  ,  IX  .2>=12,7) 

FCRYAT ! 1X.4F12.2  ) 

FORMAT! 1 >  ,4F 1 2 . 3  I 
FORMAT  (  lx,  13  ) 

FORMAT  (IX,/  ,  x  » 1  E  N  G  STRESS'  ,2X,,TRU6  STRESS'  ,2X, '  5flG  3  TEA! 
i 'TRUE  STRAIN'  ,/l 
STOP 
END 

3L9PO  LT  TNE  4C=  CORRECTING  INSTRCN  ANC  ELASTIC  STRAIN  »»• 
SL3P0UT  INS  SLCPEIC.C.C.S.CHGI 
REAL  C  .2  ... ,  S  »CH'j  ,TC  , TO 
TC=C  "*  < l.'OI 

tc=al:c (c *1 . ) 

CHG=E- S*TD/ T  C 
IFIChg.LE.O, >CC  TC  H 
GC  *0  21 
CHG*0. 


CONTINUE 

FEt!JRN 

FNO 


N '  ,2X 

«* 


’l;  i '  -  =  ’? 

THIS  =  C  c  G  ^  f*  CC'CIJI-S  TRUE  S’RESS  ANC  IT 
=  fclGI  ?J*t  HP  IMG  STRESS  ";D  ST*  Atl>  ,  ANO  *h?N 
ST’ES3  ^GAINS’  T  R  U  6  STRAIN. 

v ac* ztianiaaiamaa -•■*.» — r* T 1*  j  a  * 

EXTERNAL  SL3FS 

SEAL  A1 (13) , A  2 ( K ) ,A3<  10  1,01 ( IC ) ,32 ( 10  I ,3 
SEAL  SI (131 tS2(lC)  ,S2( 10), Cl (101 .£2 (10  )  ,c 
SEAL  C  ,C  ,c,  3  ,C)-G  ,TC  ,TD,LEGPAK(500) 

INTEGER  I.?TS1,RTS2,?TS3 
1*0 

WRITE!  4,5  ! 

CCNTINUE 
1  =  1*1 

REAOl 87  ,* , SNC  =  2C  1 A  1  (I)  ,S1( I  I 
siin=Aiii)A-(i*ei(m 
E1(I ) =ALCG( 9  1  I  11*1 ) 

ACJUSTMENT  fcf  INSTFON  ANO  elastic  strain 
c=r.  34 

C=.032 
S  =  S1 1  I  ) 

E=ei<  1 1 

CALL  SLCPE(C,C,c,S,CHGi 
Ell  I) =C)-G 

***3= 

WRITE (6 ,1!  A1  (  I  I ,S1 ( I  ), 31  (I  I , Eli  I ) 

gc  n  lc 

CCNTINUE 

pt  si  =  r- 1 

min  ilium  illinium 
1=0 

WR  ITC (  4,5) 

CCNTINUE 

1=1*1 

READ! 36  ,4,cNC*4C  )A2 (I)  ,32(1) 

S2t  I  I  *A2  (I  )*(  l  =*>  2  (  I  )  ) 

E2<  I  )  =  A  L  CG  t  82  (  IU1  I 

AC JUS  TMENT  FCF  INSTFON  ANO  E  L AS  T 1 C  STRAIN 
C  =  31 •  9 
C*.l 
S  =  S2  (  I  ) 

E  =  E2 (  I  ) 

CALL  SLCFEtC  ,C  ,2  ,S  ,CHG) 

E2( 1 1 =CFG 

**==«  = 

WRITE (6 ,2) A2( I)  ,$2t I) ,3211 )  .till) 

GC  TT  3C 
CONTINUE 
FTS2=!-i 

22222222222222222222222222 

1=0 

WRITE! 4, 5  ) 

CCNTINUE 
1  =  1  +  1 

REAOl 85  ,3,cNC=4C  )A2 (I) ,32(1 ) 

S2( I ) =A2 ( 1 1 « (  1  <321  I  )) 

52 ( I  I =ALCG( 32  (  I  ) +1  I 

ACJUST^ENT  FQF  I N  ST  -CN  ANO  CLASTIC  STRAIN 
C=43. 5 
C  =  .l 
S  =  S3 (  I  ) 

E  =  £3 (  I  ) 

call  SLC=E(C,C,E,3,CHG) 

E2  (  I  )  =C hC 

»»*+-< 

wRITc  (6  ,2)  A  2  l  I  I  ,  52  (  I  ),  33  (I  >  ,  22  (  I  I 
GC  70  5  C 
CCNTINUE 
PTS3  =1-1 

'wwWaWtaHWW«W  ■  ?j;AA*CINE  MS  ION*  LcGP  4K  liTTSS 
CALL  C  " F  c S 


2(10) 
2(  1J  ) 


CALL  U'wi.3l.:!l 
CALL  3RACS  (3.  I 
CALL  3  AG  c  (11 .  ,  £.5  ) 

CALL  v I  X  AL  r (  '  INS7RIJ  '  I 

“AX LI  ML  INEST  (LiCPAC  ,500,20  I 

CALL  L  :m::  (  '  5.CXKI  CH.  5  1-L.t  <  ,L3Gt>AK  ,1 ) 

CALL  LINES! ' E.cXlC!  EH. 5  I -3  S'  ,l£GPAK ,2) 

CALL  LINES!  '  5.4  XlC! 2H. 5 1-2  S'  ,L=G?AK  ,3 I 
CALL  NYLEGN!  'STRAIN  RATE  I  l/Sl',161 
CALL  FUTLFA 

CALL  ShCCHR  (  SC.  ,1  ,.C02 ,1  ! 

CALL  THKCRV!.C21 
CALL  HEIGHT  I. 2) 

CALL  XNAYE!'TRLE  STB  A  IN  S '  ,100 ) 

CALL  YNANEfTPLE  STRESS  I  !  IMP A  <  )  U ' » 100  I 
CALL  A  RE  A  2D ( 3.C.6.C ) 

CALL  M£A  C IN (  •  1',  ICO. .5, 2) 

CALL  HEACINt ' STRESS  XS  3TRA  I  N  1  • , 100 ,  1 .5 ,2 ) 

CALL  GRAFIO.  ,.  1  ,1.  ,C.  .50.  ,200.  I 
CALL  THKFAM(.C2I 
CALL  FRAPE 

CALL  CURVECl  ,S1  | 

CALL  CURYEI22  ,  S2,FTS2,*L  I 
CALL  CUPXE<H3  .S3  ,FTE3,«-1  ) 

CALL  RESET!  ,tI-kCRV'  1 
CALL  RESET!  • HEIGHT'  I 
CALL  LEGENO ( LEGPAK  ,3 ,5.4 ,3.  I 
CALL  3LP  EC  ( 5.1  .2.7  ,2.5 . 1 .5 , . 02) 

k  to  to  to  to  Wrttotototowt  to  ► to  to to  to  * to 

CALL  XESS1GI  •  TE-PERA-PJRE  =  S  '  ,  10  0,2.  ,2.5) 

CALL  INTNO  (  37E  ,  1  igLT'  ,  '  &BUT  '  I 

CALL  “5 SSAG l  '  (  =  h. 2  I C( EX HX I C  1 '  ,100 ,  '  A8LT •  ,  • ABUT  '  ) 

CALL  ELRECl  l.f , 2 .4 , 2. 7 , . 4, . C2) 

MI.XNhn.tikii.kl.iilh.XH.X 

CALL  MESSAG!  •  A L-  1C. 2?MG-0. 5 2 JPNS • ,103,2.5,5.5 ) 

CALL  3LRcC I  2.2  ,  5.4  ,2.  o,.4,.C2) 

CALL  MESSAG! 'ENG  CATA  POINTS  CO  NOr  S '  ,100 , 1. 2 , . 1  I 
CALL  MESSAG!  •  INC  KATE  =R  ACTU P  E  1  •  ,  13  C  ,  '  ABUT  •  ,  •  A6uT  '  I 
CALL  8L REr ( 1  .  1  ,.C4  ,4.? ,.24,.C2 ) 

te«.NHMk„htitaWk«»teb, 

CALL  j  R I C ( 2 , 3  > 

CALL  2  NO  EL ( C  I 
CALL  3CNFPL 

FCRHftT!  lx, 2= 12. 5  ,IX ,2  =  12.7 ) 

FORMAT! 1X.4F1 2.5 I 
FCR“4T (  3  X ,4F 12. E ) 

FORMAT (IX, I  3 1 

FCRM4T  (l  x  ,/ ,4*  , 'ENG  :TR.  ESS'  ,2  A, 'TRUE  STRE  S  S  '  ,2X  ,  ’  ENG  STRAIN', 2X 
A  '  T°UE  3”  F  A  IiN  '  ,/  I 
STOP 
ENO 

SUBROUTINE  =  C  F  CCPPECTINC  I N  S  TRrN  ANC  ELASTIC  STRAIN  «*  ** 
SUBROUTINE  SLCF-1  !C  ,C  ,c  ,S  ,CHG  ) 

REAL  C.C.e.S  .CI-G.TC.TD 
TC=C  (l.+OI 
TC*ALOG  1C*' .  I 
CHG*=-S»TD/TC 
IFICHC.LE.3. ICC  IC  11 
GC  TC  31 
CFG=0'  . 

CONTINUE 
RETURN 
EN 


onoOn 


10 

c 

c 

20 

C 

30 

c 

c 

4C 

c 

50 

c 

r 

60 

c 

c 


*fl-  iT  =  ".5  \s  n 

'hi:  :!r-,v„»  CI'RL'CC  '■■o~  ANC  STRAIN  - 

5 NT. I  M  2  3  !  0  G  : T~  c S  !  ANC  IT  R  A  IN  *  ANO  THEN  PLOTS 

stress  '.gainst  tclt  strain. 

%  **-*  *n  — 3  4  4  *  1  4  4«44«444s**S4  4BriS4*4a434 

EXTERNAL  SLCF? 

REAL  AI(1G>,A211C)  ,A3(10l,ai(13)  ,32  1 13  )  ,  E3  I  10  ) 
REAL  Si(10>.S2(lC).S3<10),cl(10),c2(13l.c3<10) 
REAL  C.C.c.S.CHG.TC  ,  TO , L EG? A K 1 500 ) 

INTEGER  I.PTSl.FTSZ  ,?TS3 
1*0 

*R IT" I  6,5  1 
CONTINUE 
l  =  (  +  l 

READ! 90  ,*,ENC  =  ZC  IAI  (I)  ,3111) 

Sll T ) =>A1 (I )» I  3  <311  I  )  ( 

E1II  )  =  A  L  CG  l  E  1  Ul-tll 

ACJUST.ME.NT  pop  instrcn  ano  elastic  strain  ***** 

C=9.  51 
C  =  .l 

s=si  i :  i 

E  =  ?l 1  I  ) 

CALL  SLCFe(C.C,2,S,  CHG ) 

Ell  I  I  =C  KG 

)>RIT"(6«1)A1  I  I)  ,511  I )  ,  3 1  1 1  )  ,E1(I) 

GC  TT  1C 
CONTINUE 
PTS1* I—  1 

111111111111111111.1111111 

1*0 

WRIT"! 6,5) 

CONTINUE 

I*(*l 

RE  AO  l  89,-»,2NC*40  IA2  II)  ,  321  I  ) 

S2 1  T  I  =A2  II )  ->  1 1  "621  t)  I 
E2 1 1 ) = A  LOG  I  3  2  I  I) +1  ) 

ACjUSTvfNT  -C?  INST FC.'J  ano  ELASTIC  STRAIN  ***** 
C  =  2  0.  E 
C*.l 
S  =  S2  I  I ) 

E*E2 I  i  1 

CALL  3LC  F? ( C  ,  C  i  £  ,S  ,  CHG  1 
E2I  I )  =0-0 

<J  ,»  c 

*fl  ITT  I  6  ,2  )A2  I  1 1  ,S2  (Tl,  32  (I  I  ,  £2<  I  I 
GC  '3  1C 
CENT  INLE 
PTS2  = I- 1 

222222 2222E222 2 22 122222222 
1=0 

»  P I T^ I  6,5) 

CCNTINUE 

t»C*L 

READ! ?3,»,ENC=6C]A2(I) ,82(1) 

S3  II I  =A2  (I  >-  I  1  'S3  I  I  )  I 
S3  I  I  I  *A  LOG! 32  I  1  )  41  I 

AC  JUS  T-'SIsr  rC  F  INSTFO'I  ANJ  ELASTIC  STRAIN 
C =60®  7 
C  =  .l 
S  =  S2(  I  ) 
e=h3 ( r  i 

CALL  SLCFS(  C  ,C  ,2  ,3  ,CHG  I 
E3  I  1 1  =C)-G 

kiRIT?  (  6  ,2)A2  I  I)  ,221  II,  3  3  I!  I  ,  02  I  I  ) 

GC  TO  5 C 
CCNTINUE 
PTS3= !-  1 

32  =  ’a-a3*'3  =  m  =  =  -3  =  =  ==  *  =  =T333'33i3=  = 

'ate  1  J^ii'CINFNS  ION  ISCP'.K  I5JUI 

call  ccnfrs 


ELASTIC  strain 


111 


M 


l 


t* 


a 


s 


i 

z 

3 

C4 

5 


11 

21 


call 

CALL  R  AGE  1 11 .  .  e. =  ) 

'■ILL  'M^AL-l'INCTRij') 

“4*L1  \  *L  INS  $  T  ( l  SGP  if  ,5  30  .20  ) 

CALL  L  IN S3 1  '  c  .c  A  10 ( r«. ?  I  —  i  '  ,  LEG ’AX  .  I  I 
CALL  LINES!  '  E  .txlC  (  =H.  5  >-3$  •  ,  L'SPAK  ,2  I 
CALL  LINES!  *  S.fcxlC! 2H. 5  > -2 * •  .LESPAK  .31 
CALL  '•VLEGN  (•  STRAIN  SATES  l/Sl',161 
CALL  F'JTL.’A 

CALL  SFCCHR (SC..1..C32, 1 ) 

CALL  TH.C’V <  .  02  ) 

CALL  i-gIGHT(.2l 

CALL  XNAME ( * TRUE  STRAIN*  •  ,100  ! 

CALL  YNAN>S('TRLE  ST  P  ESS  C(  I HP  A  (  )  I  *  •  ,  1  00  ) 

CALL  4  RF  a  2D ( 3 • C , 6.0  ) 

CALL  HSACIN (  •  1*  .ICO, .5  .2  I 

CALL  HSACIN! • STRESS  AS  STRA  IN  S  •  ,  100  »  1.5  ,2  ) 

CALL  GRAF  ('■>.  ,  .1  ,50.  ,200.  I 

CALL  tHKCQm(.C2) 

CALL  z°  ANC 

CALL  CURNS121  ,  SI  ,?t$ 1 ,*l ) 

CALL  CURVEIE2  .S2.rTS2.Yl  I 
CALL  CUR  VE ( S3  .S2.rTS3.Yl  I 
CALL  RESET! • TFKCRV*  l 
CALL  RESET!  '  FE  IGI-t  •  ) 

CALL  LEGEND < LEGPAK ,2.5. 4,3. I 
CALL  SLREC15.1  ,2.7,2.5,1.5..02) 

WMMMMWM.t.MMM|.Y,t>t*,.Wt.N 

CALL  MESSAG!  1  TEMPERATURE  =  *  •  , 100, 2. , 2. 5 ) 

CALL  INTNCI4CC  , '  AEL 1 ' , ' ABUT •  ) 

CALL  TESSAS!'  ( =F. 2)C( EXHXICl' .100, • ABUT* , • ABUT* I 
CALL  SLFECll.E  ,2. ->,2.7  .  .4, .02) 

W W  WWW W M  ,  ,,1.1.  ,  ! 

CALL  **£  S SAG  1  •  A L-  IC.  25MG-C.  52  JNM$*  ,100,2.5,5.5) 

CALL  eLFcC ( 2.3  .5.4  ,2. 6 , .4, .02  I 

CALL  HE  S  SAG  (  ’  EN  C  CATA  ?0  INTS  CO  NOT  l  ■  ,  100 , 1.  2  ,.  1 1 
CALL  ME  S  SAG  !  ’  INC  I C  ATE  =  R  '-CTIJFS  1*  .  130 , 1  A9UT  •  ,  •  A3UT  •  ) 

CALL  3L  P  EC (  1.1  ,.C6,4»S».24,.C2) 

YnM.WWM.YnMt.nUln 

CALL  I R  I  C  (2 . 2  I 
CALL  2  NO  F  L ( 0  I 
CALL  7CNEFL 

CCRM  A  T ( 1X.2F12.3  ,1X  .2F12.7) 

FCRYAT!  IX, 4F 1 2.  :  I 
FORMAT!  lX«tc12.5  I 

-n.a'A  AT  (  IX,  I  •  ) 

FCSM AT (1 x,/ ,  *  X  ,  ,CNG  "TRESS' ,2X, 'TRUE  S TRS S S ’  ,2 X , ' E N G  STRAIN', 
J'  TRL"  STRAIN'  ,/> 

STOP 

f*o 

SLR’TLTIN':  -CP  CORRECTING  IN  STRAIN  ANC  ELASTIC  STRAIN  -<*»«* 
SUBROUTINE  '  L  C  F  ?  1C  ,  C  ,2  •  S  ,CHG  ) 

REAL  C,  C  .5. S  .CFG  ,7C , TO 
TC  *C~  (  l.*0) 

TC  =  4L"'G  (  C  yL  „  ) 

ChG-S-SATO/’C 
IFICrtC.Ls.O,  IGC  TC  II 
GC  "0  21 
CFG *0 . 

CONTINUE 

RETURN 

ENO 


112 


nor. 


'=l: 

TH  IS  3  PC  2?.  AN  C:vPL’C2  57? 

cN'j  I  '.8  c  ?  I ‘.G  S7P3SS  ViO  -C"  •  ^  , 

ST"1  =  S S  AGAINST  TRLE  STRAIN. 

EXTERNAL  SLOPE 

REAL  A1  (101  ,  A 2  (1C  )  ,  A3(  13  1,31  CO  )  ,62  (  1.7  I  ,33 
REAL  Sim)  , $2( 1C)  ,S3( 10  I ,cl (10  I ,E2  <1C ) ,E3 
REAL  C.C.E,  j  ,0-0  ,TC  ,TD  ,L=GPAM500) 

INTEGER  I,?TS1,P7S2,?TS3 
1=0 

WR I T -  I  6  t  5  ) 

CONTINUE 
1  =  1*1 

READ! 93 ,* ,  cNC  =  20  Ml (I) ,81(1) 

si ( 1 1 =ai (i )*  < i <ei( i ) i 

El(  II  =ALCG(31  l  1  IU  ) 

AC JUS  TP  E  NT  PC  F  INSTFCN  AND  ELASTIC  STRAIN 
C  =  a«  Z  2 
C  =  .05 
S=S1(  I  ) 

E=E1 (  I  I 

CALL  3LCFEIC,C,E,S,ChG) 

El  ( 1 ) *ChG 

***« 

WRITE  (6  ,1)  A1  ( I)  ,S1 1  I),ai  (I )  ,  El(  I  ) 

GC  TO  1C 
CONTINUE 
PTS1=I-1 
1=0 

WRITE ( 6,5) 

CONTINUE 

I=t*l 

REA0<92,*,ENC=40  UZ(I),d2(II 
S2(I)=A<(I)*(1«®2(I)) 

EZ(  I) =ALCG192 (  I ) *1 ! 

ADJUSTMENT  FCF  I  AST  FCN  ANO  ELASTIC  STRAIN 

c»n.  7 

c =«  i 

S  =  S2 (  I  ) 

E  =  c2  (  I  ) 

CALL  SLCPEf  C  ,C  , S  »S  »  CHG I 
32  (  I ) =C  hG 

WR IT5  (  6 , 2 ) A2  (  I)  »S2(I)*62(I ) ,  "2(11 
GC  '9  2  C 
CCNT INLE 
PTS2= 1-1 

I,o 

WRITE ( 6,5) 

CCNTINUE 
I  =  t*l 

RcAO ( 31  ,J,  :ND=6  0  143(11,33(1) 

S3( I ) =A2 (I  IF  <  1  2 (  I ) I 

E2 ( I ) =ALCG( 32(11+1) 

ACJJSTMENT  PC?  INSTRCN  ANO  ELASTIC  STRAIN 

C=36. 3 

C=.l 

S=S3( I ) 

e=E3(  i) 

CALL  SLCFr ( C  ,C  ,2  ,S,CHG) 

E3( 1) =CEG 

wfl IT2 l o ,3) A3  (  I  )  ,02 (  I  ) ,33  (I  )  ,  E2( I  ) 

GC  Tr(  5C 
CCNTINUE 
PTS 2=  I-  I 

,-,-333  033333  3  1  •  * T3  3  3  333  33 

twlwwwwwwww  Sijii’ciMS.NSIDN  LSGPAK  (?*«? 
CALL  CCMPRS 
CALL  PCLY3 
CALL  3LCWLP («  f  S I 


-ALL  ; 

call  psGE(ii.,f.3i 
CALL  "I  XALF (  '  INSTRL  '  ) 

maxl  :n  =  l  in?"  t  ( lc-cpak  ,500  .20 1 

CALL  LINES!  •  5  .  6 X  1C ( CH.  5  I -4 S 1  ,  LEGPAK  .  I  ) 

CALL  LI  NcS!  *  5.4 *10 ( CH. 5 ) -2 i <  ,L  =  G=AK  ,2  ) 

CALL  LIN  fit  *  5 .t X 1C  f EH. 5  I -2  S  •  ,L=G?AK  ,3) 

CALL  MYLSG.N  (  '  STS  AIN  RATES  l/Sl',16) 

CALL  Ft  T  Lr\  4 

CALL  SFCChR ( EC.  ,  1  ,.C02 , 1 > 

CALL  'HKCRV1.C2I 
CALL  HEIGHT (.2) 

CALL  X  NAME ( ‘ TRUE  STRAINS  '  ,100  I 

CALL  Y  NAME  (  '  T  RLE  STRESS!  (  l.MPA  (  )  I S*  ,  1 00  ) 

CALL  AREA2C! 9. C.6.0 I 
CALL  H  E  A  C I M  (  '  S', ICO, .5,2) 

CALL  HEACIN!  • STRESS  \S  STRA I N J •  ,  130 , 1. 5  ,2 ) 

CALL  GRAF <0.  .  .1  ,1..C.,50.  ,200. ) 

CALL  TH*FRM!.C2) 

CALL  FRAY? 

CALL  CUPVE121  , SI,  FT SI, .1) 

CALL  C  UR  V  ? ( ?  2  ,  22  ,FTS2,pL ) 

CALL  CUR VE ( S  3  ,  S  2  ,FT$3,«-1> 

CALL  RESET! 'TFKCFV 1  I 
CALL  RESET! '  I-  E  SOFT  '  ) 

CALL  LECEND ( LECFAK , 2 ,5. A ,3. I 
CALL  SLFEC ! 5.1  ,2.7 ,2.5 ,1 .3 , .02) 

YtoWftMtote.Y.ntot  V V  4 4  4  4 , ■ 

CALL  *ESSAG  l  '  TE  '  FES  AT'JRE  =  J  '  ,  103 , 2  .  ,  4. 5  ) 

CALL  INTNO  (-,  23  ,  •  A  eLT' ,  '  4eUT  •  ) 

CALL  MESSAG (  1  ( ?F. 2  )0( CXI-X )C S  '  ,130 ,  1  ABUT ■  ,  • ABUT' ) 

CALL  ELREC (  I  .6  ,4.4 ,2.7 , .4, .02 ) 

W4i»4iw444444.44  4444miiM 

CALL  MESSAG! • AL-  1C. 2 WG-C.  5 2 JYN S • ,100,2.5,5.5) 

CALL  eLFEC ( 2.2  ,3.4  ,2. o , .4, ,C2 ) 

444W444444W444  4444444 

CALL  ye  S  SAG  1  '  ?N  C  CATA  POINTS  CO  NOT  S •  , 1 C 3 , 1. 2 , 2. 1 
CALL  MESSAG!  •  INC  SCATS  FRACTURES'  ,100,  ’  ABUT'  ,  ' ABUT'  ) 

CALL  2LReC<  1.  1,1. Ef  ,5.  ,.24, .22) 

W«MV4d444n4tMI*444, 

CALL  G  F 1 C ( 2 , 2  I 
CALL  3NDFLIO) 

CALL  JCNEFL 

FORMAT! 1X.2F12.5  ,1X  ,2F12.7) 

F«R“4T(  1X,4FI2.5I 
FORMAT! lx, 4^12,3  I 
FORMAT ( IX. I  2  ) 

FORMAT  ( 1 X  ,  /  ,  4  x  ,'SNG  Str.  "S  S'  ,  2  X  , '  TRUE  STRESS' ,2X, 'ENG  STRAIN', 
i  ' TRUE  STRAIN'  ,/) 

STOP 

END 

SUBROUTINE  -OF  CC?c:C'"INO  INSTRCN  SNC  ELASTIC  STRAIN  **•  ** 
SUBROUTINE  SLOPE  (C  ,C,3,3  ,CHG  ) 

REAL  C ,C ,E,  G ,CFC ,TC  ,T0 
TC=C* ( l.+O) 

TC=ALCG(CH.  I 
CHG-E-STTO/TC 
I  F ( CHG. LSo  0 ,  )GC  TO  U 
GO  TO  21 

CFrH»0. 

CONTINUE 
FETURN 
ENO 
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